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Dès le 20 Avril : 
LE RECUEIL 3 


méxos 9 à 12 de Pom's 


Le recueil n°3 : 

Le recueil n°3 : 

Le recueil n°3 : plus de cinquante programmes 
Le recueil n°3 : une référence/indispensable 


Recueil 3 (regroupant les MR Pom's) : 140,00 F TTC franco 
Disquettes d'accompagnement 9 à 12 (}{+, Me, /e+,//c) : 190,00 F TTC franco 
Bon de commande page 74 
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L'Éditeur Plein Écran 


PE version 9.0 


” Vous permet toujours de : 


i . lister vos programmes Basic en avant et en arrière ; 

:- modifier, insérer, effacer des caractères en plein écran sans relire les lignes ; 
: + rechercher toute chaîne de caractères ; 

: * choisir vous-même les codes de contrôle d'EPE. 


i maïs il fonctionne maintenant : 
. sous DOS  - en 40 colonnes *- sur Apple ][+ *+ sur Apple //e+ 
:-. sous Prodos + en 80 colonnes + sur Apple //e *+ sur Apple //c 


EPE version 5.0 : 200,00 F TTC franco 
Échange ancienne version contre version 5.0 : 80,00 F TTC franco 
bon de commande page 74 
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Éditorial 


Ce numéro de printemps, outre ses treize programmes, vous présente deux 
nouveautés : le recueil n°3 d'abord, qui regroupe les numéros 9 à 12 de Pom's. Il 
vous séduira particulièrement pour ses listings sortis sur la LaserWriter (toujours la 
communication entre Apple !! et Mac !). Une soixantaine de programmes et plus de 200 
pages : une mine de renseignements à portée de main. 

Deuxième nouveauté : E.P.E. 5.0. Nombre d'entre vous avait en effet pris la plume 
pour déplorer l'impossibilité d'éditer avec E.P.E. sous ProDOS en 80 colonnes. Dès 
aujourd'hui, cette nouvelle version est disponible, et elle fonctionnera également sur 
voire /Ic. 

Vous n'avez pas E.P.E. ? au prix de 200,00 F, c'est un éditeur sans égal. 

Vous avez E.P.E. ? retournez-nous la disquette originale, nous la mettrons à niveau au 
prix de 80,00 F. 


Depuis plus de deux années (Pom's n° 9), vous trouviez les disquettes 
d'accompagnement Apple /! à 55,00 F ou à 280,00 F par abonnement : elles resteront 
sans concurrence, mais nous devons avouer que nous étudions une ‘remise à jour’ de ces 
prix. Ne tardez pas à renouveler votre abonnement ! 


Pascal et Turbo Pascal, CP/M, DOS et ProDOS, assembleur et Basic, 6502, 65C02 et 
68000 : vous trouverez certainement ce numéro très riche ; vos contributions nous 
montrent que vous êtes particulièrement actifs devant vos claviers. Dans le numéro 24 
probablement, vous trouverez le très beau fruit de cette activité sous la forme d'un 
programme en CP/M, CP/M que nous avions quelque peu délaissé. 


Nous vous donnons rendez-vous au Sicob Boutique, du 14 au 19 avril, stand 2A203 
et n'oubliez pas notre petit questionnaire page 73 ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Jean-Paul Arbel. Alexandre Avrane, Jean-Luc Bazanegue, Dominique Bermardi, Gilles 
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Karl 7e 


Nicolas Montsarrat 


ommercialisé en France 

par FRA CIEL - 42, rue 

des Prébendes - 37000 

TOURS au prix de 
625,00 francs HT (soit 741,25 
francs TTC) dans sa version 
CP/M, le TURBO-PASCAL est 
un des meilleurs compilateurs 
Pascal disponibles sur Apple J{[+, 
Ile et //c. Le système comporte le 
compilateur TURBO.COM rési- 
dant en mémoire centrale, avec 
éditeur incorporé, le programme 
d'installation TINST.COM, 
TLIST.COM qui liste les 
fichiers-source, ainsi qu'un petit 
tableur de démonstration nommé 
“Microcalc”. 


Le système 
TURBO-PASCAL 


Après avoir appelé TURBO 
-COM, le programme propose un 
menu permettant d'éditer un 
fichier-source, de le compiler, de 
l'exécuter, de le sauver. Il 
propose quelques commandes de 
manipulation des disquettes 
(catalogue, appel d'un programme 
extérieur, etc.), et des commandes 
diverses (compilation en mémoire 
centrale ou sur disquette, adresse 


de départ du programme 
objet,...). 
L'Editeur 


L'éditeur reprend la majorité des 
commandes de WORDST AR, le 
traitement de texte bien connu 
tournant sous CP/M. Outre les 


commandes de contrôle du 
curseur, on y trouve des 
commandes de déplacements et de 
copie de blocs de texte, de 
recherche et de remplacement, 
ainsi que de mise en place du 
système de  tabulation 
automatique. 


La place disponible pour les textes 
est d'environ 22 Ko sous CP/M 
60Ko et de 18 Ko sous CP/M 
56Ko. C'est largement suffisant 
pour les programmes de taille 
moyenne, d'autant plus que le 
compilateur permet de compiler 
des programmes dont le source 
est composé de plusieurs fichiers 
(‘include files”) 


Cet éditeur est pratique à utiliser, 
rapide et puissant. Un petit défaut 
toutefois : pour les possesseurs 
d'Apple ][+, il y a des problèmes 
de reconnaissance de la vidéo 
inverse sur certaines cartes 80 
colonnes destinées au ]{+ (Par 
exemple la carte U-Term), en 
particulier le curseur n'est pas 
visible à l'écran, ce qui n'est pas 
sans poser quelques problèmes. 
Pour les cartes 80 colonnes des //e 
et //c, aucun problème. 


Le Compilateur 


Le compilateur, résident en 
mémoire centrale, est sûrement le 
compilateur Pascal le plus rapide 
disponible sur Apple : Il compile 
les programmes en une seule 
passe, directement en code 


machine (et non en code-P comme 
le Pascal UCSD). Deux options 
sont proposées : la compilation en 


Une application 


mémoire, où le code et le source 
résident en mémoire, et la 
compilation sur fichier COM, où 
seul le source est en mémoire. 
Cette deuxième possibilité permet 
de compiler des programmes dont 
le source est trop important pour 
laisser de la place au code, ou 
simplement pour obtenir un 
fichier exécutable indépendant du 
système TURBO-PASCAL. 


La vitesse d'exécution des fichiers 
objet est également impres- 
sionante : un petit peu plus d'une 
seconde pour une boucle de 1 à 
10000, contre 8 pour le Pascal 
UCSD, bien que le code généré 
soit du code Z80, plus lent que 
l'équivalent 6502. 


En conclusion, un compilateur 
simple à utiliser, dont les 
performances sont inégalées sur 
Apple. 


Le langage Pascal 
proprement dit 


Le TURBO-PASCAL reprend 
toutes les caractéristiques du 
Pascal standard, plus quelques 
extensions : 


Le type BYTE permet de définir 
des nombres entiers entre 0 et 
255, n'occupant qu'un seul octet 
en mémoire. Les conversions en 
INTEGER se font automa- 
tiquement, sans générer d'erreurs. 


Le type REAL définit les nombres 
réel entre 1 #8 et 1*38 sur une 
mantisse de 11 chiffres, on est 
loin des maigres 6 chiffres du 
Pascal UCSD. 
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Les chaînes de caractères sont 
présentes, avec le type STRING 
et les instructions DELETE, 
INSERT, STR, VAL et les 
fonctions COPY, CONCAT, 
LENGTH, POS. 


Les types énumérés (par exemple 
VAR HUMAIN : [HOMME, 
FEMME]) sont utilisables, 
contrairement au Pascal UCSD, 
sans écrire de routines de 
conversion : ainsi on peut écrire 
WRITELN (HUMAIN) et on aura 
à l'écran "HOMME" ou 
"FEMME" en toutes lettres. De 
même pour READLN 
(HUMAIN), qui attend les 
caractères HOMME ou FEMME. 


Les "TYPED CONSTANTS" 
permettent de forcer le type d'une 
constante. Ainsi on peut définir 
CONST CR : CHAR = M qui 
définit le caractère ‘Retour 
chariot’. On peut utiliser ces 
constantes comme paramètres de 
procédures de fonctions, 
contrairement à certaines 
constantes normales. On peut de 
même les utiliser pour initialiser 
des tableaux de constantes, 
permettant de simuler les 
READ/DATA du basic : on peut 
défmir CONST DEUX : ARRAY 
[0..7] OF BYTE = 
(1,2,4,8,16,32,64,128), et 
manipuler DEUX comme un 
tableau (voir programme 
GRAPHIC). 


La gestion des fichiers est 
comparable à la gestion UCSD, 
avec fichiers séquentiels et 
fichiers directs. Comme en Pascal 
UCSD, on accède aux 
périphériques par des fichiers 
poitant le nom des ‘devices’ 
CP/M : “CON:” pour l'écran, 
“KBD:” pour le clavier sans écho, 
“LST:” pour l'imprimante, 
“AUX:” pour la carte série, etc. 
On trouve également les 
UNTYPED FILES du Pascal 
UCSD), qui permettent d'accéder à 
des fichiers CP/M par blocs de 
128 octets. 


Toutes les procédures de gestion 
de l'écran sont présentes, avec 
vidéo inverse (sur //e et //c) et 
contrôle du curseur. 
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Dans la version CP/M, on peut 
définir des variables à une 
position absolue en mémoire 


(directive ABSOLUTE, voir 
programme GRAPHIC), chaîner 
des programmes, et appeler des 
sous programmes en assembleur : 
il suffit d'insérer les codes 
hexadécimaux de la routine. 


Quelques restrictions : pour 
optimiser la vitesse d'exécution, 
le Turbo Pascal ne génère de code 
pour les appels récursif que sur 
demande de l'utilisateur par 
l'option {$A+}, et n'effectue la 
vérification des indices de tableau 
qu'avec l'option {$X+}. 


Les limites 


On peut faire au Turbo Pascal 
deux reproches principaux : 


* dans la version Apple CP/M , il 
n'y a aucune gestion possible 
des graphiques. On peut lever 
cette barrière partiellement 
(voir programme GRAPHIC), 
mais les routines ne seraient 
très performantes qu'en 
assembleur ; 





° iln'y a pas de possibilité de 
créer des ‘librairies’ et des 
‘unités’ : la seule entité 
compilable est un PROGRAM. 
On ne peut donc pas créer de 
gros programmes, séparés en 
modules d'une dizaine de Ko 
s'appelant les uns les autres. 


Conclusion 


On l'a vu, le TURBO-PASCAL 
possède des performances 
époustouflantes en compilation et 
en vitesse d'exécution. Les 
débutants pourront l'utiliser de 
manière beaucoup plus pratique 
que le Pascal UCSD pour se 
former, le dialogue avec 
l'utilisateur étant très intéractif, et 
les attentes nettement moins 
longues... L'utilisateur chevronné 
pourra s'en servir pour exécuter 
des programmes plus rapidement, 
la conversion depuis le système 
UCSD étant relativement aisée 


avec un programme comme 
UNIVERSAL FILE CONVER- 


SION. 
G 


Programme ‘GRAPH.PAS’ 


Le signe — indique que le retour chariot précédent ne doit être saisi. Il ne sert 


qu'à la mise en page. 


PROGRAM GRAPHIC; 


{Pour executer ce programme, 


il faut le compiler en Option C 
OM et demander une START ADDRESS de $5000. 


apres compilatio 


n, Quitter turbo pascal et executer le programme sous CPM} 


(ATTENTION en mode Graphique, 
i de WRITELN]) 


il ne faut pas fairede WRITE n 


CONST DEUX:ARRAY{0..7} OF BYTE=(1,2,4,8,16, 32, 64,128); 
TYPE PA=PACKED ARRAY{0..1] OF 0..255; 


MAGIC=RECORD 
CASE BOOLEAN OF 


TRUE: (INT: INTEGER) ; 


FALSE: (PTR:"PA); 
END; 


VAR ECRAN:PACKED ARRAY{0..8191j OF BYTE ABSOLUTE $3000; 


A, R:'REAL; 
OX,OY, X, Y:INTEGER; 


FUNCTION PEEK(X:INTEGER) : INTEGER; 
VAR C:MAGIC; 
BEGIN 

C.INT:=X; 

PEEK:=C.PTR"{0} 





















































POLE (SES, 09 A à 2665, 5); A:=PEEK($SEO55) +PEEK($EOS0) +P 
“EEK (SE057) FSEEX 
END; 
PROCEDURE TEXT; 
VAR A:INTEGER}; 
BEGIN 
A:=PEEK ($E051) +PEEK'$E054); POKE(S$SEO01, 0); POKE ($E00D, 0); 
CLRSCR; 


END; 


PROCEDURE HGR; 
BEGIN 

GRAFIXON; 

FILLCHAR (ECRAN, 8192, 0) 
END; 


PROCEDURE PLOT(X, Y:INTEGER) ; 

VAR D, I:INTEGER; 

BEGIN 
D:=Y MOD 64; 
I:=1024* (D MOD 8)+128*(D DIV 8)+40*(Y DIV 64)+(XDIV 7); 
ECRAN{I}:=ECRAN{I} OR DEUX{X HOD 7] 

END; 


PROCEDURE LINE (X1,Y1,X2, Y2:INTEGER)}; 
VAR XT,TX,XX,X,Y:REAL; 
C,I:INTEGER; 
BEGIN 
IF XI>X2 THEN BEGIN 
C:=NT,; X1:=X2; X2:=C: 
GR=ri; Yli=kor Y2:eC 
END; 
IF X1=X2 THEN 
IF YIl<Y2 THEN FOR I:=Y1 TO Y2 DO PLOT(X1,1) 
ELSE FOR I:=Y2 TO Y1 DO PLOT(XI,17) 
ELSE IF Y2=Y2 THEN FOR I:=X1 TO X2 DO PLOT(I, Y1) 
ELSE BEGIN 
TX:=(Y2-Y1}/(X2-X1}; XT:=ABS(1/TX); 
IF XT>1 THEN XT:=1; X:=X1; Y:=Y1l; XX:=TX 
=*"XT; 
REPEAT 
PLOT{TRUNC(X]),TRUNC(Y)}; 
XI=XAXT; Yi=Y#+XX 


UNTIL X>X2 
END 
END; 
BEGIN 
HGR; 
R:=0.0; A:=0; OX:=140; OY:=95; 
REPEAT 


X:=TRUNC(140+R*COS (A)); Y:=TRUNC(9S+R*SIN(A)); 
LINE (OX,OY,X,Y); OX:=X: OY:=Y; 
R:=R+1.5; A:=A+1,5533; 
UNTIL (R>95) OR KEYPRESSED; 
READLN; TEXT 
END. 


Une application 


Une des limitations du 
TURBO-PASCAL est de 
ne pas permettre Îa 
gestion des graphiques. 
Ce petit programme y 
remédie, de facon 
rudimentaire car ses 
performances ne sont 
pas celles d'une routine 
en assembleur. 


Pour transférer le programme de 
la disquette Pom's vers une 
disquette CP/M sous le nom 
GRAPH PAS, il est nécessaire 
d'avoir UNIVERSAL FILE 
CON VERSION (dans le cas 
contraire, à vos claviers !). Il faut 
donc transférer le fichier 
GRAPH.PAS puis passer sous 
CP/M et faire un REN 
GRAPH.PAS=-GRAPHPAS. 
Ensuite, passer sous TURBO 
PASCAL, puis compiler le 
programme en option COM FILE 
en spécifiant une START 
ADDRESS de $5000. 


Le programme lui-même trace un 
petit dessin de démonstration, un 
carré qui tourne. Les procédures 
utilisables sont : 


HGR passe en mode graphique et 
efface l'écran. 


GRAFIXON passe en mode 
graphique sans effacer l'écran. 


TEXT passe en mode texte. 


PLOT(X,Y) met un point en 
X,Y à l'écran 


LINE(X1,Y1,X2,Y2) trace 
une ligne entre X1,Y1 et X2,Y2. 


Attention, une restriction : il ne 
faut pas faire de WRITE ni de 
WRITELN en mode graphique, 


sous peine de plantage. . 
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N CO P OSEUR Bernard Hoyez, 


SUR le //c 


es propriétaires d'un 
Apple //c ont sans doute 
été déçus en s'aperce- 
vant que le programme 
de Bermard Hoyÿez et Jean-luc Nail 
permettant de com poser automati- 
quement un numéro de téléphone 
(Pom's n° 22), ne pouvait pas 
fonctionner sur leur machine. 
Qu'ils se réjouissent, voici une 
version d'AGENDA et de 
COMPOSEUR qui permet de 
l'ada pter à votre machine favorite. 


Pour cela, on utilisera le port série 
n° 2 "consacré" normalement au 
modem et plus particulièrement le 
niveau logique DTR “Data 
Terminal Ready”, qui se trouve 
sur la broche i du connecteur 
(voir schéma). La valeur de cette 
sortie est soit -12V soit +12V. 
C'est cette sortie que l'on va 
utiliser à la place de ANDO pour 
commander le relais, bien que les 
valeurs de ANDO soient 0 et +SV. 


Pour protéger le transistor on 
rajoutera une diode en dérivation. 


Pour l'alimentation, la meilleure 
solution est d'utiliser une pile (de 
4,5 ou 9 volts suivant le relais 
utilisé). Le reste du schéma est 
identique. 


Pour commander le niveau de la 
broche DTR, il faut utiliser le 
registre de commande du port 
considéré (adresses : Port 1 = 
$CO9A - Port 2 = $SCOAA). 
Suivant la valeur de ce registre, 
DTR et par suite la tension de la 
broche 1, passe d'un niveau à 
l'autre (voir le tableau). 

Les modifications à apporter au 
programme AGENDA sont les 
suivantes : 


380 POKE 49322,8 Prise de ligne 
550 POKE 49322,0 Coupe la ligne 








Jean-Luc Nail, 
Bruno Fénart 


F——* 


150 Q 
L2 


Connecteur 
Port série n° 2 


2N2219 


Schéma de branchement 


Signification 


Data Terrninal Ready 
Transmi Daa 

Masse mécanique/signal 
Read Data 

Data Set Ready 


Les broches du connecteur série 





Adresse Adresse 
hexadécunale | décimale 
Port 1 | $CO9A | 49306 
Port 2 $COAA 49322 


Valeur du 
Registre 


Tension 


Broche 1 


Signification des bits du registre de commande 
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0 90 ÔONERR GOTO 570 340 CALL - 868: PRINT TS(I,1),TS(I 
Pour COMPOSEURS voir le 5 brinr COMPOSITION AUTOMAT 2 n'a 
listing du nouveau source. IQUE DE” 350 GOTO 250 
Remarque : on a utilisé le port :10 print » NUMERO TELEPHON 360 XS = TS(1,2) 
n'2, pour le port n° 1 il suffirait 120 je CHRS (4) ;"BLOADCOMPOSEUR .. es pe, Se ui 
U : Fe di 380 OKE 49322,8: rise de ne 
de changer l'adresse du registre ob Re on ne F 
de commande, 190N = 0 400 HOME 
Bibliographie : The Apple Jic _ Eee : _ 410 ue : PRINT "JE COMPOSE LE NUM 
Reference Manual - Volume 1. 170 REAO TS(N, 1) 420 FOR 1 = 1 TO LEN (XS) 
180 NEXT J 430 A = ASC ( MIDS {X$,I,1)) + 128 
190 GOTO 150 440 POKE 7,A 
G 200 VTAB {8) 450 CALL 768 
210 PRINT "UTILISEZ LES FLECHES *;: 460 PRINT CHRS (A); 
INVERSE : PRINT "=>"; : NORMAL : 470 FOR T = 1 TO 600: NEXT T 
PRINT ” ET ";: INVERSE : PRINT " 480 NEXT I 
<=": NORMAL 490 HTAB 1: VTAB 5: PRINT "DECROCHEZ 
220 PRINT "POUR SELECTIONNER LE NOM LE COMBINE, MAINTENANT..." 
Programme DE L'ABONNE" 500 VTAB 8: PRINT "..... AVANT" 
n , 230 PRINT : PRINT "VALIDEZ AVEC LA T 510 FOR 1 = 400 TO 1 STEP - 1 
AGENDA OUCHE RETURN" 520 VTAB (15): HTAB (11) 
240 1 = 0 530 PRINT INT (1 / 50)/;" SECONDES" 
10 REM **#*COMPOSEUR DE NUMERO* *#* 250 GET AS$ 540 NEXT I 
20 REM * par * 260 A$ = ASC {AS} 550 POKE 49322,0: REM Coupe 
30 REM * Bernard HOYEZ * 270 IF A& < > 13 AND A% < > 21 AND 560 GOTO 580 
40 REM * et Jean-Luc NAIL . At < > 8 THEN 260 570 IF PEEK (222) = 42 THEN 200 
50 REM ARARARRRAAARRARARRARARRR SR 280 IF At = 13 THEN 360 580 HOME : RESTORE 
60 REM ==>ENTRER LES NOMS ET LES NUM 290 IF A$ = 21 THEN I = I +1 590 PRINT "...PRET POUR UN AUTRE APP 
EROS EN DATA A LA SUITE DES AUTR 300 IF A$ = 8 THEN 1 = 1 - 1 EL ...": GOTO 140 
ES 310 IFI>N-1THNI=N-T] 600 DATA RENSEIGNEMENTS, 3612 
70" [IREM ARARSA RAM ERA AAA AR ER S 320 IF I<1THEN TI» 1 620 DATA AUTRES RENSEIGNEMENTS, 3611 
80 HOME 330  VTAB 15 630 DATA YJULIETTE, 12345678 
Source 21 LDA CHIFFRE 45 STY COMREG 
22 CMP #"0"-1 46 JSR WAIT 
‘COMPOSEUR.S' #0 5 Lo moe 
24 CMP  #"9"+1 48 LOY #508 
Assembleur Big Mac 25 BCS  ERROR 40 nt Re 
26 s0 JSR WAIT 
1 RARRRRRRRRRRRRRRRRRRRRRRRR A 2 AND #$1111 51 RTS 
28% + ; filtrage 
3 * Conposeur e 28 BNE COMPOSE 
qu * 29 LDA #10 
5 RRRÉRRRRRRRRRRRRRRRRRRRRR A : CHIFFRE=0 => <A>=10 
6 30 COMPOSE TAX - s 
7 + 8 novembre 65 31 Récapitulation 
8 32 BOUCLE = * 6 O OS U ; 
3 33 JSR  PULSE MP E R 
10 * ADRESSE 34 DEX 
11 35 BNE BOUCLE Après avoir saisi ce code sous 
12 COMREG = $COAA :Port 2. 36 RTS moniteur, vous le sauvegarderez par 
$CO9A pour le port 1 37 BSAVE COMPOSEUR,A$300,L$32 
13 WAIT = $FCA8 38 ERROR = * 
14 CHIFFRE = 7 :ce n'etait pas un chiffre 0300- A5 07 C9 AF 90 12 C9 BA 
15 ERREUR = 8 39 LDA #$SFF 0308- BO 0E 29 OF DO 02 A9 CA 
16 40 STA ERREUR 0310- AA 20 ID 03 CA DO FA 60 
F7 ORG 5300 41 RTS 0318- A9 FF 85 08 60 A9 9F' AO 
18 42 0320- 00 68C AA CO 20 A6 FC A9 
19 ENTREE = . 43 PULSE LDA #159 0328- 6C A0 08 8C AA CO 20 A8 
20 44 LDY #500 0330- FC 60 


Dès le 20 avril, dans votre bibliothèque : 


Le Recueil 3 
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GENUTILE : 


des utilitaires 


ENUTILE est un 
ensemble de PROCE- 
DURESs et FUNC- 
TIONSs d'intérêt général 
constituant une INTRINSIC 
UNIT au sens du compilateur 
PASCAL, et qui est incorporé à la 
SYSTEM LIBRARY sous les 
numéros de SEGMENTS 16 
(programme) et 17 (données). 


GENUTILE définit un TYPE 
CHOIDECA:SET OF CHAR, et 
une variable ALFANUM de ce 
type. ALFANUM désigne 
l'ensemble des caractères 
alphanumériques depuis " " 
(es pace) jusqu'à "-" (caret). 


GENUTILE définit diverses 
variables de TYPE CHAR qui, 
lorsqu'elles sont envoyées sur 
OUTPUT, ont l'effet suivant : 


SON émet un BIP 

BS recul du curseur 

EFL efface la fin de ligne 

. EFB efface le bas de l'écran 

INV met l'affichage en mode 
inverse 

NORM met l'affichage en mode 
normal 

CR envoie le curseur à la 
ligne 

HOME efface l'écran ou va à la 
page 


GENUTILE définit aussi ESC et 
FLD (flèche droite) de TYPE 
CHAR. Toutes ces variables sont 
définies comme le CHR ) de 7, 
8, 29, 11, 18, 20, 13, 12, 27, 21 
respectivement. 


PROCEDURE 
PRENRETURN 


Attend qu'un <RETURN> ait été 
fra ppé au clavier. 





Jean-Claude Lengrand 


indispensables dans 


Programme ‘GENUTILE”’ 


(* LENGRAND, LE 9/12/82 *) 
(##) 
(*SS+*) 
UNIT GENUTILE,; INTRINSIC CODE 16 DATA 17; 


INTERFACE 


TYPE CHOIDECA=SET OF CHAR; 
VAR BS, SON, EFL, EFB, INV, NORM, CR, ESC, FLO, HOME : CHAR; 
ALFANUM:CHOIDECA; 


PROCEDURE PRENRETURN; 

FONCTION  PRENCAR (BONSET : CHOIDECA) : CHAR; 

FUNCTION OUI:BOOLEAN; 

PROCEDURE MESSAGE (Y : INTEGER;S: STRING) ; 

PROCEDURE ALARME {S: STRING) ; 

PROCEDURE PRENCHAINE (LONGMAX : INTEGER; BONSET : CHOIDECA; VAR S:STRING) ; 

PROCEDURE ENTIER (LONGMAX : INTEGER; VAR S:INTEGER) ; 

PROCEDURE CONTINU (Y:INTEGER) ; 

PROCEDURE ALITEXT (LONGMAX : INTEGERY S : STRING) ; 

PROCEDURE SAISIE(X, Y, LONGMAX : INTEGER; BONSET : CHOIDECA; LIBELLE : STRING; 
VAR S:STRING) ; 


FONCTION PEEK (ADRESSE : INTEGER) : INTEGER; 
PROCEDURE POKE (ADRESSE, CONTENU : INTEGER) ; 


PROCEDURE ERROR(L:INTEGER; VAR S:STRING) ; 

PROCEDURE VALBOOL(S:STRING; VAR N:BOOLEAN) ; 

PROCEDURE VALREEL (S:STRING; VAR K:REAL); 

PROCEDURE VALENT (S:STRING,; VAR K:INTEGER) ; 

PROCEDURE STRBOOL (N : BOOLEAN; L': INTEGER; VAR S:STRING,; VAR ERREUR: INTEGER) ; 
PROCEDURE STRFIX(N:REAL, L, D:INTEGER; VAR S:STRING; VAR ERREUR: INTEGER) ; 
PROCEDURE STRFLOT(N:REAL;L, D:INTEGER; VAR S:STRING; VAR ERREUR : INTEGER)} ; 
PROCEDURE STRENT(N,L:INTEGER; VAR S:STRING; VAR ERREUR : INTEGER) ; 


IMPLEMENTATION 


PROCEDURE PRENRETURN; 
VAR SORT :CHAR; 
BEGIN 
REPEAT 
READ(KEYBOARD, SORT) 
UNTIL EOLN (KEYBOARD) 
END: 


FUNCTION PRENCAR; 


VAR CH : CHAR; 
BON  :BOOLEAN; 
BEGIN 
REPEAT 


READ (KEYBOARD, CH) ; 
IF EOLN(KEYBOARD} THEN CH:=CR; 
BON:=CH IN BONSET; 
IF NOT BON THEN NRITE (SON) 
ELSE IF CH IN f' ‘.,.'*"] THEN WRITE(CH) 
UNTIL BON; 
PRENCAR ;: =CH 
END; 


FUNCTION OUI; 
BEGIN 

OUI :=PRENCAR({"Y',"O','N']) IN {'Y','o"'] 
END; 


PROCEDURE MESSAGE; 
BEGIN 
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FUNCTION PRENCAR 
(BONSET :CHOIDECA): 
CHAR 


Renvoie un caractère frappé au 
clavier. Ce caractère doit faire 
partie de BONSET, défini 
préalablement comme un SET OF 
CHAR, sinon, émet un BIP et 
attend un autre caractère. 


FUNCTION 
OUI:BOOLEAN 


Attend un caractère au clavier et 
renvoie TRUE s'il s'agit de O ou 
de Y et renvoie FALSE s'il s'agit 
de N. Émet un BIP et attend un 
autre caractère dans tous les autres 
Cas. 


PROCEDURE MESSAGE 
(Y:INTEGER;S:STRING) 


Écrit le message S à partir du 
début de la ligne Y (0<Y<23) et 
efface la fin de la ligne. Le 
curseur reste immédiatement après 
le message. 


PROCEDURE 
ALARME(S:STRING) 


Efface l'écran sauf la 1ère ligne, 
affiche le message S et attend un 
<RETURN>. 


PROCEDURE 
PRENCHAINE 
(LONGMAX:INTEGER; 
BONSET:CHOIDECA; 
VAR S:STRING) 


Saisit au clavier la chaine S, avec 
limitation à LONGMAX carac- 
tères choisis dans BONSET. Si 
l'on répond par un simple 
<RETURN>, la valeur précédente 
de S est conservée. La correction 
par la flèche gauche (BS) est 
perrnise. 


PROCEDURE 
ENTIER(LONGMAX : 
INTEGER; VAR 
S:INTEGER) 


Saisit au clavier l'entier positif S, 
avec limitation à LONGMAX 
caractères choisis dans ‘0'..'9" 
Si l'on repond par un simple 
<RETURN)>, la valeur précédente 





GOTOXY (0, Y} ; WRITE {S, EFL) 
INC; 


PROCEDURE ALARME; 

BEGIN 
GOTOXY (0, 1} WRITE (SON, EFB)} ; 
MÆESSAGE {10, S}; 
MESSAGE {12, *FAITES <RETURN> ‘'); 
PRENRETURN 


END; 


PROCEDURE PRENCHBINE; 
(#%) 
(* SAISIT UNE CHAINE DE CARACTERES AVEC 
LONGUEUR MAXI ET VALEUR PAR DEFAUT *) 
(**) 
VAR S1 : STRING{1]}; 
CONT :STRING; 
BEGIN 
SE:=" 
CONT:="!}; 
REPEAT 
IF LENGTH(CONT) =0 THEN Si{1]:=PRENCAR(BONSET+{CRJj) 
ELSE IF LENGTH(CONT)=LONGMAX THEN S1{1]:=PRENCAR({CR, BS])) 
ELSE S1{1]:=#PRENCAR(BONSET+/{CR, BS]); 
IF S1{1] IN BONSET THEN CONT:=CONCAT (CONT, S1) 
ELSE IF S1/1}=#BS THEN 
BEGIN 
WRITE(ES, ' ‘,BS); 
DELETE (CONT, LENGTH (CONT) , 1} 
END; 
ONTIL S1{1]=-CR; 
IF LENGTH (CONT} <>0 
THEN S:=CONT 
ELSE WRITE (SJ 
END; 


PROCEDURE ENTIER; 
(*+} 
{* SAISIT UN NOMBRE ENTIER POSITIF *} 


(729 
VAR SJ] :STRING{1]; 
I :INTEGER; 
CONT  :STRING; 
ORSET :CHOIDECA; 
BEGIN 
OKSET:={"O0".."9"};Sl:=æ" ''CONT:m'tr, 
REPEAT 


IF LENGTH (CONT}=0 THEN S1{1] :#PRENCAR(OKSET+{CR]) 
ELSE IF LENGTH(CONT)=LONGMAX THEN S1{1]:=#PRENCAR{{[CR,BS)) 
ELSE S1{1j:=#PRENCAR(OKSET+[CR, BS}) ; 
IF S1/1} IN OKSET THEN CONT:=CONCAT (CONT, Si} 
ELSE IF S1{1]=BS THEN 
BEGIN 
MRITE(BS, ' ‘,BS); 
DELETE (CONT, LENGTH (CONT), 1} 
END; 
UNTIL S1{1]=CR; 
IF LENGTH {CONT)<>0 THEN 
BEGIN 
S:=0; 
FOR I:=] TO LENGTH(CONT) DO 
BEGIN 
S:=S*10;S;:=S+(ORO(CONT(1]}-ORO(*'0')) 
END; 
END ELSE WRITE({S) 
END; 


PROCEDURE CONTINU; 
(2% 
{* INVITE L'OPERATEUR À CONTINUER #} 
(2) 
BEGIN 
WRITE (INV) ; 
MESSAGE (23, "FAIRE <RETURN>POUR CONTINUER"); 
WRITE (NORM) ; 
PRENRETURN; 
GOTOXY (0, Y); 
WRITE(EFB) 
END; 
(2) 
PROCEDURE ALITEXT; 
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de S est conservée. La correction 
par la flèche gauche (BS) est 
permise. 


PROCEDURE 
CONTINU(Y:INTEGER) 


Affiche sur la dernière ligne de 
l'écran une invitation à frapper 
<RETURN> pour continuer, 
attend <RETURN>, envoie le 
curseur en (0,Y) et efface le bas 
de l'écran. 


PROCEDURE 
ALITEXT(LONGMAX: 
INTEGER;S:STRING) 


Affiche le texte S cadré à gauche 
sur LONGMAX positions, après 
troncatule si nécessaire. 


PROCEDURE 

SAISIE(X, Y,LONGMAX: 
INTEGER;BONSET: 
CHOIDECA;LIBELLE: 
STRING); VAR S:STRING) 


Même fonction que PREN- 
CHAINE, mais avec écriture de 
LIBELLE au point de l'écran 
(X,Y), juste avant la saisie. La 
valeur par défaut est affichée 
pendant la saisie, elle est 
éventuellement tronquée à 
LONGMAX caractères. 


FUNCTION 
PEEK(ADRESSE: 
INTEGER) 


Renvoie le contenu décimal de la 
mémoire ADRESSE. 


PROCEDURE 
POKE(ADRESSE, 
CONTENU:INTEGER) 


Met CONTENU dans la mémoire 
ADRESSE. Aucun test n'est 
effectué sur la valeur des 
paramètres. C'est une procédure à 
utiliser avec précaution. 


PROCEDURE 
ERROR(L:INTEGER; VAR 
S:STRING) 


Remplit une chaîne S de longueur 
L avec L astérisques. 


(**#) 

{*  EDITE UNE CHAINE CAOREE A GAUCHE *)} 

(#4) 

BEGIN 
IF LENGTH(S):>LONGMAX THEN S:=COPY(S, 1, LONGMAX) ; 
WRITE(S, "":LONGMAX-LENGTH (S) } 

END; 

{**) 

PROCEDURE SAISIE; 

ii) 

(* SAISIT ONE CHAINE DE CARACTERES EN UN POINT DONNE 

CE L'ECRAN, AVEC LONGUEUR MAXI ET VALEUR PAR DEFAUT *) 

(22) 

BEGIN 
IF LENGTH(S)>LONGMAX THEN S:=COPY(S, 1, LONGMAX) ; 
GOTOXY(X, Y) ;NRITE{LIBELLE) ; ALITEXT (LONGMAX, S) ; 
GOTOXY (X+LENGTH{LIBELLE) , Y}; 
PRENCHAINE (LONGMAX, BONSET, S} ; 
WRITE ('':LONGMAX-LENGTH (S} } 

END; 


FUNCTION PEEK,; EXTERNAL; 
PROCEDURE POKE;EXTERNAL; 


(Ft) 
PROCEOURE ERROR; 
{*#} 
{* REMPLIT UNE CHAINE S DE L ASTERISQUES *) 
(et 
VAR I:INTEGER, 
BEGIN S:='!; 
FOR I:=1 TO L DO S:=CONCAT({'*!,S); 
END; 


{°*) 
PROCEDURE VALBOOL; 
(+) 
{*  CONVERTIT UNE CHAINE EN BOOLEEN *) 
(e#) 
BEGIN 
IF LENGTE(S}<>0 THEN 
CASE S{1] OF 
RD, VEUT NO MINS N: TRUE; 
'F','N', "O':N:=FALSE 
END 
END; 
F2) 
PROCEDURE VALREEL; 
(ee) 
(*  CONVERTIT UNE CHAINE EN REEL *} 
(#29 
TYPE PARTIE®= (BLK, SGN, ENT, DEC, SEXP, EXPO) ; 


VAR REGION :PARTIE; 
SIGNE, PUISS, I,L :INTEGER; 
FAC :REAL, 

e : CHAR; 


PROCEDURE CALCULE; 
VAR I:INTEGER; 
BEGIN 
IF PUISS<-37 
THEN K:=0.0 
ELSE IF PUISS>37 
THEN K:=æ=],01E37 
ELSE IF PUISS<0 
THEN FOR I:=1 TO -PUISS DO K:=K/10.0 
ELSE FOR I:=1 TO PUISS DO K:=K*10,0 
END; 


BEGIN 
K:=0.0;SIGNE:=1;FAC:21.0;PUISS :=0; 
REGION :=BLK; L :=LENGTÉ {S} ; 

IF L=0 THEN EXIT(VALREEL) ; 
FOR I:=1 TO L DO 
BEGIN C:=S{I]}; 
CASE REGION OF 
BLK :BEGIN 
IF NOT( C IN (' 
CASE C OF 
+": REGION :æSGN; 
"-":BEGIN 


COURENT 
NT 2 tone 


', '0'..'S'J)THEN EXIT(VALREEL); 
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PROCEDURE 
VALBOOL(S:STRING; VAR 
N:BOOLEAN) 


Si S commence par Y,O,T,V,1, 
rend N égal à TRUE. 

Si S commence par N,F,0, rend 
N égal à FALSE. 

Laisse N inchange dans les autres 
cas. 


PROCEDURE 
VALREEL(S:STRING; VAR 
K:REAL) 


Renvoie dans K la valeur réelle 
représentée par la chaîne S. 
L'interprétation s'arrête dès que ta 
procédure trouve un caractère 
inattendu, comme la fonction 
VAL du BASIC. En particulier, 
elle s'arrête sur le premier espace 
rencontré. La forme avec 
exposant est reconnue. Le nombre 
peut être précédé de 1 ou 
plusieurs espaces placés avant 
tout caractère significatif. La 
forme de l'exposant est libre. Il 
peut être absent. Le point décimal 
peut être absent. Le nombre peut 
être précédé de un ou plusieurs 
signes qui se combinent. Ex: 
+-+3.14E sera interprété comme 
-3.14 (exposant=-0). S peut être 
une chaîne vide. K vaut alors 0. 
Une valeur absolue inférieure à 
1E-37 est considérée comme 
nulle. Une valeur absolue 
supérieure à 1E37 est prise égale à 
1.01E37, un test sur la valeur 
renvoyée peut permettre de 
détecter un dépassement éventuel. 


PROCEDURE 
VALENT(S:STRING; VAR 
K:INTEGER) 


Remplit la même fonction que 
VALREEL, notamment pour la 
reconnaissance d'un nombre sous 
n'importe qu'elle forme, mais 
renvoie la valeur entière la plus 
proche du nombre représenté. Les 
entiers dont la valeur absolue 
excède MAXINT, soit 32767, 
sont ramenés à +-32767. 


PROCEDURE 
STRBOOL(N:BOOLEAN; 
L:INTEGER;VAR 
S:STRING; VAR 
ERREUR:INTEGER) 





REGION : «SGN; SIGNE :=-SIGNE 
END; 
‘o*, rl (x 2!, Ge LA “gr, 15 cu ‘or ar, r8r, "9':BEGIN 
REGION :=ENT;K:=OR9 {CJ -ORD {'0'} 
END; 
",. ": REGION: #DEC; 
END; 
END; 
SGN :BEGIN 
IF NOT (CIN {'-","#",'".",'0'"..'9"]} THEN EXIT(VALREEL); 
CASE C CF 
"-":SIGNE:=-SIGNE; 
1020, 02,13", tt 9 ME 7 PB, CO PBECIN 
REGION : =ENT;K:2SIGNE"* (ORD{C)-ORD({'0'}} 


END; 
". ": REGION: #DEC; 
END; 
END; 
ENT :BEGIN 
IF NOT{ C IN {'.','E','0"..'9"}) THEN EXIT(VALREEL); 
CASE C OF 


", ":REGION:=#DEC; 
"E'":REGION: =SEXP; 


10, '1",121,131, "41,151, 6!,"7","8t, t9':K:-=K*10.0+SIGNE* (ORD(C)-ORD("O')8 


END; 
END; 
DEC :BEGIN 
IF NOT( C IN {'0".. 
CASE C Of 
"E':REGION:=SEXP; 
‘0*, DRE QU QE 14 LE LL (IL L7 ALP HBir, "g':BEGIN 
FAC :=FAC/10.0;K:=K+SIGNE*FAC*(ORD(C)-ORD('0'})) 
END; 
END; 
END; 
SEXP : BEGIN 
IF NOT(C IN {'-',"+#+",'0"..'9']} THEN EXIT(VALREEL); 
IF C='-' THEN SIGNE:=-1 
ELSE SIGNE:=1]; 
IF C IN {'O'.,.'"9'"] TREN PUISS:#SIGNE* (ORD(C)-ORD('0!')); 
REGION :=EXPO 
END; 
EXPO: BEGIN 
IF (NOT( C IN {'O0'..'9"]})}] OR (ABS (PUISS}>MAXINT DIV 10) 
TBEN BEGIN CALCULE;EXIT(VALREEL) END; 
PUISS : =PUISS*10+SIGNE* (ORD (C) -ORD {'0')}) 
END; 
END (* CASE *) 
END, (*4ÆEOR *) 
CALCULE; 
END; 


"9','E']) THEN EXIT(VALREEL) ; 


(e+) 
PROCEDURE VALENT; 
{##) 
{(*  CONVERTIT UNE CHAINE EN ENTIER *) 
(es) 
VAR X:REAL, 
BEGIN 
VALREEL(S, X); 
IF ABS (X/MAXINT 
THEN IF X>0.0 TBEN K:=MAXINT 
ELSE K:=-MAXINT 
ELSE K:=ROUND(X) 
END; 


(9) 
PROCEDURE STRBOOL; 
(**} 
(*  CONVERTIT UN BOOLEEN EN CHAINE *)} 
(449 
VAR I:INIEGER; 
BEGIN ERREUR :=0; 
IF N THEN S:='VRAI' 
ELSE S:='FAUX', 
IF L<1 THEN BEGIN ERREUR :#];S:=""';EXIT(STRBOOL) END, 
IF L>80 THEN L:=#80; 
IF L>4 TREN FOR I:=#5 TO L DO S:=#CONCAT(' 
IF L<4 THEN S:=COPY({S, 1,L) 


"S); 
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renvoie une chaîne de longueur L 
contenant VRAI ou FAUX, 
éventuellement tronquée ou cadrée 
à droite, selon la valeur de N. 
ERREUR prend la valeur 1 si 
L<1, et O dans les autres cas. 


PROCEDURE 
STRFIX(N:REAL;L, 
D:INTEGER:VAR 
S:STRING; VAR 
ERREUR:INTEGER) 


Renvoie une chaîne S de longueur 
L représentant le nombre réel N 
avec D décimales, en fonnat 
FIXE : -xxx.yy 

Si L<3 ou D<0 ou L<D+2, on 
obtient ERREUR>1i. 

Si le nombre est trop grand (/n/ 
>32767), on obtient l'erreur 2. 

Si le nombre est trop grand pour 
le nombre de caractères total 
im posé, on obtient l'erreur 3. 
Dans les autres cas, ERREUR 
reste nul. 

Si L est supérieur à 80, il est 
considéré comme étant égal à 80, 
sans que cela soit signalé. 

Le nombre de décimales peut être 
réduit d'office par la procédure si 
la partie décimale est représentée 
par un entier superieur à 32767. 
Aucune erreur n'est alors 
signalée, et le nombre total de 
caractères est respecté. 

Si l'on est sûr que le nombre est 
positif, on peut ne pas prévoir de 
place pour le signe. 


PROCEDURE 
STRFLOT(N:REAL; 
L,D:INTEGER; VAR 
S:STRING; VAR 
ERREUR:INTEGER) 


Même fonction que STRFIX, 
mais la chaîne contient le nombre 
en représentation flottante 
-1.2344E+03 avec un chiffre 
avant le point décimal et un 
exposant de 4 caractères. 

L'erreur 2 de STRFIX ne peut 
pas se produire. Les conditions 
d'apparition de l'erreur 1 sont : 
L<7 ou D<0 ou L<D+6. 


PROCEDURE 
STRENT(N,L:INTEGER; 
VAR S:STRING:; 

VAR ERREUR:INTEGER) 


Renvoie une chaîne de longueur L 


PROCEDURE STRFIX; 
17%) 
{*  CONVERTIT UN REEL EN CHAINE DE TYPE -XXXX.XX 
VAR I,J :INTEGER, 
NEGATIF:BOOLEAN; 
ND,EX :RERL, 
S1 :STRING; 
BEGIN 
IF 1580 TEEN L:=80; 
IF (L<3) OR (D<O) OR (L<D+#2) 





"2 


THEN BEGIN ERROR(L,S} ERREUR :=#1;EXIT(STREIX) END 


ELSE ERREUR:=0; 
NEGATIF:=(N<O.0};/N:=ABS(N); 
IF N>32767.0 THEN 
BEGIN ERROR {L, SJ ;/ERREUR:=2;EXIT(ISTREIX) END; 
IF D=0 
THEN 
BEGIN 
STR (ROUND(N),S1);S:m="t 
END 
ELSE 
BEGIN 
STR (TRUNC (N), S1); 
REPEAT 
EX:=1;FOR I:=1 TO D DO EX:=#EX*10.0; 
ND:=EX* (N-TRUNC {N)) ;D:eD-1; 
UNTIL ND<=32767.0; 
J :=ROUND(ND) ; STR(J, S) ;D'æD+1; 


FOR J:=LENGTH(S) +1 TO O DO S:=#CONCAT('0",S}; 


END; 
S:=CONCAT(S1, '".",S}; 
IF NEGATIF THEN S:=CONCAT("-",S}); 
IF LENGTH(S)I>L THEN 
BEGIN ERROR(L,S) /ERREUR:=#3;EXIT(STRFIX) END; 
FOR J:=LENGTH(S)+1 TO L DO S:#CONCAT(! ',S}; 
END; 


(ee) 
PROCEDURE STRE LOT; 
(*+) 


f* CONVERTIT UN REEL EN CHAINE DE TYPE -XXXX.XXE#YY *) 


f#*) 


VAR Si :STRING; 
EX :INTEGER; 
NEGATIF:BOOLEAN; 

BEGIN 


IF L>80 THEN L:=80; 
IF (L<7)} OR (D<0} OR (L<D+6} 

THEN BEGIN ERROR{(L,S) ;ERREUR:=1;EXIT(STRFLOT} 

ELSE ERREUR:=0; 
NEGATIF:= (N<O.O);N:=ABS({N);'EX:=#0; 
IF N<>0.0 THEN 

BEGIN 

WHILE N>=10.0 DO 
BEGIN N:=N/10.0;EX:=EX1+1 END; 
WHILE N<i.0 DO 
BEGIN N:=N*10.0;EX:=EX-] END; 

END; 
STR (ABS (EX),S); 
IF ABS(EX)<10 THEN S:=CONCAT("0',S); 
IF EK<O THEN S:=CONCAT("E-",S) 

ELSE S:=CONCAT('E+",S); 
Ir NEGATIF THEN N:=-N; 
L:=L-4, 
STRFIX(N,L,D, Si, ERREUR); 
S:=CONCAT(S1,S) 
END; 


{"*) 
PROCEDURE STRENT; 
{**) 
{* CONVERTIT UN ENTIER EN CHAINE #) 
(+23 
VAR I,J:INTEGER; 
BEGIN 
IF L>80 THEN L:=0; 
ERREUR :=0; 
STR(N, S);1:=LENGTH(S) ; 
IF L>I THEN FOR J:=1 TO L-I DO S:=#CONCAT(!' ',S}); 
IF L<I THEN BEGIN ERROR(L,S});ERREUR:=1 END 
END; 


{* INITIALISATION *} 


END 


LL sw ml 
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De 
LS 
x 


VISEN ENT TARA ES A CT OS TRS SATA NT SEEN RTS 


représentant l'entier N. L'erreur 1 
se produit si L<1 ou si L>80. 


Les PROCEDURES PREN- 
CHAINE et SAISIE peuvent 
provoquer des diagnostics à la 
compilation si la paramètre actuel 
S est une chaîne de longueur 
déclarée (STRING{xx}). Il faut 
alors compiler le programme (ou 
la fraction de programme 
concernée) avec l'option (*$V-*) 
du compilateur pour éviter le 
diagnostic. 


En cas d'erreur dans les 
procédures STRxxxx, la chaîne 
qui est renvoyée ne contient que 
des *** mais cela n'entraîne pas 
d'erreur d'exécution. 


En cas d'espace en trop dans ces 
procédures, les chaînes sont 
cadrées à droite. 


La version PASCAL de 
GENUTILE (obtenue après 
transfert de la disquette Pom's et 
nommée alors UTIDIVTEXT) 
déclare PEEK et POKE comme 
étant EXTERNAL. PEEK et 
POKE ont été écrits en 
assembleur (fichier PEEKPOKE. 
TEXT). On doit donc 

* compiler UTIDIVTEXT, 

° assembler PEEKPOKE. 
TEXT, 

+ _linker PEEKPOKE.CODE 
dans UTIDIV.CODE pour 
obtenir GENUTILE.CODE, 

+ placer GENUTILE.CODE 
dans SYSTEM.LIBRARY par 
l'utilitaire LIBRARY CODE. 


Accompagné d'une cinquantaine de pages de documentation, Üisk Manager permet de recréer 
les commandes du Dos, redéfinir l'organisation d'une disquette, grâce à un jeu d'instructions qui 
en fait un langage simple d'accès à la disquette. Il offre également un programme simple d'édition 


BEGIN 
HOME :=CHR(12}; 


CR 


NORM:=CHR (20); 
ALFANUM:={" ".. 


END 





ESC :=CHR(27); 
FLD:=CHR(21}; 
EFB:=C#R{11}; 
ae} 


:aCHR(13]); 


EFL:=CHR(29}; 
SON :=CHR(7}; 


BS 


:=CHR(8); 


INV:=CHR(18}; 








Les identificateurs déclarés par GENUTILE sont : 





ALFANUM ALARME ALITEXT BS 
CHOIDECA CONTINU CR EFB 
EFL ENTIER ERROR ESC 
HOME INV MESSAGE NORM 
OUI PEEK POKE PRENCAR 
PRENCHAINE PRENRETURN SAISIE SON 
STRBOOL STRENT STRFIX STRFLOT 
VALBOOL VALENT VALREEL. 
Source _ 
‘PEEKPOKE.TEXT’ es 
. PROC POKE, 2 

- FUNC PEEK, 1 RET .EQU 0 
RET .EOU O0 ADR .EQU 2 
ADR .EQU 2 VAL .EQU 4 

PZA PIA 

STA RET STA RET 

PLA PLA 

STA RET+1 STA RET+] 

PLA PLA 

PIA STÀA VAL 

PIA PLA 

PILA PLA 

PLA STA ADR 

STA ADR PIA 

PLA STA ADR+1 

STA ÀADR+1 LDX #@ 

LDX #0 LDA VAL 

TXA STA @ADR,X 

PHA LDA RET4+1 

LDA €@ADR,X PAA 

PAaà LDA RET 

LDA RET+1 PHA 

PHA RTS 

LDA RET . END 


RER D ES DAT EAN AR DE ES DE ES ET A ES EN À 


à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 


Utili-disque : reconstruction d'une disquette détruite, Vérification, Plan d'occupation 


Ultra-copie : pour un backup particulièrement rapide 
Edicat : Edition du catalogue, classement des fichiers, Titres. 
Multi-disque : pour le classement de tous vos programmes (tri instantané). 


D NT DIT SSPOPNIIR LT LL EL TTL LLL SL ESS PNINT ESCACE ANANANANE LE HL LL AOPIALIVE PERDRE LS D'OPNINE EP IIS SNS 


de Dan Steerey 


FL CE GLTES LOORAETT LE LE T TEE PET LEP COL TT 


Oisk Manager, le Dos en Kit 


DLL DD D DR DLÉELL SSSR DUC 0 pe or ve de. | 
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u'est-ce qu'un formateur 

de programme Apple- 

soft ? C'est une routine 

qui affiche ou imprime 
un programme Basic pour en 
faciliter la lecture. La mise au 
point en sera donc facilitée et, une 
fois terminée, on obtient une 
documentation d'allure profes- 
sionnelle. 


Inspiré d'une routine écrite 
elle-même en Basic dans 
Call-Apple, FORMATEUR est 
réalisé entièrement en assembleur 
pour des raisons évidentes de 
rapidité. Une fois chargé en 
mémoire, il peut être utilisé à tout 
moment. 


Le programme Applesoft est listé 
de la façon suivante: 


* une seule instruction par ligne 
(les ‘:’ excédentaires entre 
deux instructions sont 
ignorés) ; 

. une ligne blanche entre deux 
lignes de programme ; 

+ décalage de 4 caractères dans 
les boucles FOR-NEXT; 
remplacement des NEXT 
X,Y,Z par NEXT X : NEXT 
Y:NEXEZ; 

+ décalage de 4 caractères après 
THEN; 

+ décalage de 4 caractères pour 
les instructions dont la 
longueur dépasse une ligne 
(sauf cas de force majeure, les 
mots ne sont pas COUPÉS) ; 

* en début de ligne, on rajoute 
LET avant l'affectation d'une 
variable. 


Bien entendu, le programme listé 
n'est absolument pas modifié par 
FORMATEUR. 


Le format par défaut est 80 
colonnes sur 66 lignes, mais 
l'utilisateur a la possibilité de 
modifier ces valeurs. Le saut de 


page et la pagination sont 
automatiques. Enfin, on peut 
également imprimer un titre etune 
date. 


Utilisation 


Le programme se charge par 
BRUN FORMAT. Les commandes 
disponibles sont : 


&L 

Liste l'ensemble du programme à 
l'écran. Comme la commande 
LIST de l'Applesoft, on peut la 
faire suivre d'un numéro de 
ligne : 


&L 10 sont des 

&L 10,20 formats 

&L 10, acceptés 

€L ,10 

&LP 

Liste sur l'imprimante. Le format 
est identique que €&z. 
L'imprimante est supposée 


connectée en slot 1. Notez que les 
instructions PR#n ne sont pas 
imprimées. 


&T 

Saisie du titre sur au plus 32 
caractères. Le format est libre. 
Effectuer la séquence : 


&T <Retum> titre <Retum> 


On peut également y inclure des 
codes de contrôle pour 
l'imprimante (sauf ESC). 


&D 
Saisie de la date sur 32 caractères 
en format libre. 


éP n 

n définit la longueur d'une page 
(de 21 à 127 sinon message 
d'erreur). 





ec n 
n définit la largeur d'une page (de 
40 à 127 sinon message d'erreur). 


Le listing peut être interrompu par 
CTRL-C. Utilisez CTRL-S pour 
une interruption temporaire. 


Fonctionnement 


Sous DOS 3.3, le programme se 
charge en $90D1 et fixe Himem à 
$9100. Le programme initialise 
l'Ampersand et les valeurs par 
défaut du format, puis rend la 
main. 


Lorsqu'il est appelé pour une 
liste, il scanne le programme 
Basic en mémoire en effectuant, 
d'une part le même travail que la 
routine LIST de l'Applesoft 
(conversion des numéros de ligne 
stockés en binaire en valeurs 
affichables, traduction des tokens 
en mots-clés, etc.), d'autre pait en 
améliorant l'affichage comme 
décrit précédemment. 


FORMATEUR utilise un grand 
nombre d'adresses inutilisées en 
page zéro ; cela ne pose pas de 
problèmes car il est prévu pour 
êtreactivé en mode direct et non à 
l'intérieur d'un programme. De 
plus, la zone $300-$33F sert à 
sauvegarder le titre et la date 
éventuellement saisis. 


N.D.LR. : les routines d'accès 
aux périphériques du programme 
ont été légèrement modifiées afin 
de permettre un fonctionnement 
normal avec une carte 80 
colonnes, ainsi qu'une exécution 
au choix sous DOS 3.3 ou 
ProDOS. 

Le programme T FORMAT est le 
fichier source au format Big Mac. 
L'assemblage sous DOS 3.3 se 
fait simplement en mettant la 
variable PRO DOS à 0. 
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Pour ProDOS, elle doit être mise 
à 1 et le source doit être resauvé 


sur disque. L'assemblage 
s'effectue en chargeant 
DARWINS (pour les détails 
d'utilisation, voir Pom's 22) ; la 
dernière ligne doit devenir “PUT 


FORMAT" et on assemble en 





chargé sous ProDOS par : 


(il se relogera au dessus des 


dora les paramètres : BRUN FORMAT.PRODOS, AS6000 
DARWIN D = $90D1 

DARWIN_F = $95FF buffers de ProDOS). 

VA DEBUT = 1 


Le module objet peut alors être 





03 mars 1986 


PAGE 1 


“J* THEN 


“S" THEN 


XR° THEN 


"M" THEN 


"p" THEN 


Convert 
460 LET Je J + 1 
410 NEXT 
420 LET N2= J'-:1 
430 REM  INCLUSION DES BRK 
440 ONERR GOTO 460 
450 LET F$ = FS$(3} : 
PRINT D$"BLOAD"FS : 
GOTO 470 
460 ‘CALL 768 : 
GOSUB 1080 : 
GOTO 440 
470 CALL 37500 
480 FOR I = 1 TO N1 
490 IF INT (1 / 500} = I / 500 THEN 
PRINT 
PRINT "PATIENCE JE FAIS LE MENAGE!"; : 
CALL 37500 : 
PRINT "C'EST FINI” : 
PRINT 
506 FOR J » 1 TO 12 
510 IF MID$ {A${I),d,1} < > 
670 
520 LET JeJ+1: 
IF MIDS (AS{I),9,1) < > 
559 
530 LET Je J +1: 
IF MIDS (A$({I},J,1) < > 
670 
540 LET 2$ = 215$ : 
GOTQ 590 
550 IF KIDS (AS(I),J,1) < > 
67Q 
$60 LET Jæ=gJ#+1l: 
IF MID$ (AS(1},d,1} < > 
670 
570 LET 2$ = 22$S 
S48 REM ON À UN JSR OÙ JMP 
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Un listing formaté par 


‘FORMAT” 


Ce listing partiel de 'CONVERT' publié dans ces 
pages, a été obtenu à l'imprimante en faisant : 


+ BRUN FORMAT 
+ LOAD CONVERT 


+ &T pour la saisie du titre ‘Convert 


+ &D pour la date ‘03 mars 1986 


+ &LP 400,680 pour le listing proprement ait. 


Note : sous ProDOS, il faut faire 


BRUN FORMAT.PRODOS,A$6000 
et il vous faut un Basic.System dont {a 


version est supérieure à 1.f. 


93 mars 1986 


PAGE 2 


Convert 
590 LET M = 9 +2 
690 LET YS = #n 
619 IF J > 4 THEN 
LET Y$ = LEFT$ (A$(1},J - 4) 
620 FOR K = 1 TO N2 
630 LET b æ BEN (Z2$(K))} 
640 IF LEN (A${I)} - M + 1 < L THEN 
660 
650 IF MIDS (AS$(I),M,L) «= 2S(K} THEN 
LET AS(TI) = YS + 29 + 2S{(K) : 
PRINT AS({I},®LIGNE N{ °;I : 
PRINT 
LET K = N2 
669 NEXT K : 
LET J « 12 
670 NEXT J + 
NEXT I 
680 HOME : 
PRINT. "SAUVER LE FICHIER TRANSFORME ?° : 
PRINT 2 
PRINT »” SUR DYISQUETTE? <O,N>"; 


Source ‘DARWIN.S" 
Assembleur BIG MAC 








DA + ————— mme ———— me 


45 * Z - Copie vers l'adresse d'implantation 


Gt ———— "cm mm 0 mm Ge 


47 DARNIN20 JSR SFF58 contient un RTS 

1 LÉLELLIELEEEEEEEEEEEEELEL EE Z2 48 TSX 

cer DARNIN * 49 DEx 

3 CLLELELLELELEILLELILLELLLLLEE SE SC CLE 

Li Si LOA $100,X recherche sur la pile 

S$ * Routine d'initialfsetion à ProDOS 52 ADC SDARWIN99-DARWIN20-2 ‘adresse début routine 

6 * d'un programme assembleur DCS 3.3 539 STA $3C A1 

7 54 LDA $101,x 

8 * (C} 1985 Alexsndre Avrane S5 ADC #0 

9 * Modifié: 29/11/85 56 STA S$3C+I 

10 * Créé: 16/11/85 57. zDA $3C adresse de fin 

it 58 ADC W<DARWIN_L 

12 * Ce source est assemblé an conjonction 53 STA $3E A2 

13 * avec le programta à adapter ProDOS 60 LOA $3C+I 

14 61 ADC #>DARNIN_L 

15 DARWIN D K8D adresse de début DOS 3.3 62 STA $3E+i 

16 DARWIN_F KBD adresse de fin DOS 3.3 53 LDA #<DARNIN_ À adresse d'arrivée 

17 VA DEBUT KBD saute en début de pgm après chargement? 64 STA $42 A4 

18 65 PHA 

19 * Calcul des adresses sous ProDOS 66 LDA #>DARWIN_A 

20 DARWINVI = DARWIN_F/$100+1 67 STA $42+1 

21 DARNINV2 = CARNIN_D/$100 68 PHA 

22 DARNINV3 = DARNINVI-DARKINV2 69 LDY #0 

23 DARNINU4 = $100*DARWINV2 70 JSR S$PEZC déplace le bloc par MOVE 

24 DARNINVS = DARWIN _D-DARNINV4 71 

26 73 * 3 - Appel du module et sortie 

27 DARWIN_A = $S9IAO0-DARNINVE : adresse de début ProDOS 74 # eus 2 

28 DARNIN_L = DARWIN_F-DARWIN_D : longueur ProDOS 75 PLA 

29 76 STA S$42#1 

30 ORG DARNIN_A-73 ;DARNIN prend 72 octets 77 PLA 

31 78 STA $42 

32 * mancns—-—"oumsmmumaan———-2 79 DO VA_DEBOT 

33 * 1 - Recherche de la place mémoire 80 JMP (542) saute en début de programme... 

34 À mumaususcuss==usssausapmm————2# gi ELSE 

35 LDA $BFFD IVERSION 82 RTS .--ou retour à l'Appleseft 

36 BEO DARWINIO Basic.Systeæ 1.0 83 NOP 

37 LDA #0-DARNIN_A/$100+$9B 64 NOP 

38 JSR $BEFS GETBUFR 85 FIN 

39 BCC DCARWINII 86 DARMIN99 = , 

40 DARWINIO LOA #14 PROGRAM TOO LARGE 87 * Inclut le source dv programme à adapter (format TEXT) 

4i JMP  $BEO9 88 POT FORMAT 

42 DARWINI11 = * 89 END 

H = si = a 

Récapitulation 6088- FF 20 B1 00 90 2C C9 50 6180- 20 24 ED 84 06 ,A9 O0 18 
6090- FO 07 C9 00 DO 11 4C A9 6188- 69 07 85 1A 38 E5 06 A8 

en version ProDOS 6098- 94 A5 D6 FO 05 C6 D6 4C 6190- 88 A9 20 20 5C DB 88 DO 

‘FORMAT. 60A0- C9 DE E6 D6 4C 40 94 C9 6198- FA A9 00 85 1E 85 1D 85 

PRODOS’ 60A8- 2C FO 03 4C C9 DE A5 FB 61A0- D7 85 EB A4 07 20 F8 96 
60B0- F0 03 4C C9 DE E6 FB 4C 61A8- DO 03 4C FE 94 C9 3A FO 

: 60B8- 40 94 20 OC DA A5 FB DO 61B0- F4 C9 892 DO 2C A9 01 85 

Aprés avoir saisi ce code 60C0- OD A5 50 85 FC A5 51 85 61B8- EB 38 A5 EC E9 04 10 02 

SOUS moniteur, à partir de 60C8- FD 20 B7 00 DO BE A5 50 61C0- A9 00 85 EC AA E8 A9 20 

l'adresse $6000, vous le 60D0- 85 FE A5 51 85 FF 20 B7 61C8- 20 F2 96 CA DO FA A2 00 

sauvegarderez par BSAVE 60D8- 00 FO 03 4C C9 DE A5 FD 61D0- BD DO 98 FO 06 20 F2 96 

FORMAT,A$6000,L$55E 60E0- C5 FF 90 CE DO 06 A5 FE 6108- E8 DO F5 4C FE 95 4C 63 
60E8- C5 FC B0 06 20 F3 98 4C 61E0- 96 85 07.A6 EC E8 A9 20 
60F0- 00 BE AD 31 BE 49 FD 8D 61E8- 20 F2 96 CA D0 FA A5 07 

6000- AD FD BF F0 07 A9 07 20 60F8- 14 99 FO 05 A9 33 8D 14 61F0- 30 EC C9 30 90 32 C9 3A 

6008- F5 BE 90 05 .A9 OE 4C 09 6100- 99 A5 D6 FO 07 A9 31 20 61F8- BO OD ,49 20 20 F2 96 A5 

6010- BE 20 58 FF &A CA 18 BD 6108- F6 98 C6 D6 85 FB 85 168 6200- 07 20 F2 96 4C FE 95 C9 

6018- 00 01 69 36 85 3C BD 01 6110- 85 1A 85 1D 85 1C 85 1E 6208- 41 90 1D C9 5B BO 19 A2 

6020- 01 69 00 85 3D A5 3C 69 6118- 895 EC 85 D7 A5 FC 85 50 6210- 00 85 07 BD D7 98 FO 06 

6028- 20 85 3E A5 3D 69 05 85 6120- A5 FD 85 51 20 ï1A D6 AO 6218- 20 F2 96 E8 DO F5 A5 07 

6030- 3F A9 00 85 42 48 A9 94 6128- 03 B0O OA A0 00 FO OF 4C 6220- 20 F2 96 4C FE 95 A5 07 

6038- 85 43 48 AO 00 20 2C FE 6130- FE 94 4C A3 94 20 49 97 6228- C9 22 FO 03 4C D4 96 A5 

6040- 68 85 43 68 85 42 6C 42 6138- 20 68 97 4C 2B 95 20 49 6230- 1D 49 O1 85 1D A9 20 20 

6048- 00 A9 4C 8D F5 03 A9 2B 6140- 97 20 68 97 4C 01 95 20 6238- F2 96 A9 22 4C E9 96 .A9 

6050- 8D F6 03 A9 94 8D F7 03 6148- F8 96 20 F8 96 FO 9D AD 6240- 3A 4C E9 96 4C FE 94 20 

6058- A9 42 85 19 A9 50 685 1B 6150- 00 CO 10 CA C9 83 DO 06 6248- F8 96 FO F8 30 5E A6 FB 

6060- A9 07 85 09 AC 3F A9 03 6158- AD 10 CO 4C A3 94 20 F8 6250- EO 01 DO OD A2 00 86 FB 

6068- 85 CF ,49 00 85 CE 20 IA 6160- 96 85 50 20 F8 96 85 51 6258- 85 07 A9 20 20 F2 96 AS 
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Source ‘T.FORMAT’ 
Assembleur BIG MAC 


Sauvegarde sous format TEXT fvoir texte) 


SbUnmU eus 


LST ON 


*1 


+! FORMATEUR DE LISTINGS AASIC 1! 


LL 


*! COPYLEFT Gisèle PRARSAULT et ! 


! 
Sylvie GALLST ? 
! 


*! Source pour 006 3.3/ProD0s 1 


PRODOS 


© 


4! (mettre 0 pour DOS 


; 
#*! ou 1 pour ProDOS) £ 
! 


+! Assembiabla directement pour ! 


*! DOS 3.3: utiliser DARWIN pour! 
#1 Probos: 


*! evec les Paracëcres; 
#1! DARHIN D = 69000 

*} DARNINLF = $9520 

st VA DFSUT = 1! 


*! Syntaxe: 
disting à l'écran 


vt 61 
*! 6LP 


saisie de le date 

stisie du titre 

longueur d'une page 
largeu£ d'une page t 


! 
! 
listing à l'imprimante ! 
! 
! 
! 


‘1 slot imrimante 


+ O8J $800 


FIN 


EoUu 
£Ou 
€0u 
EQu 
£cu 


1-PRODOS pas d'ORG pour P 
roDOs 
9001 


2SCE-SCF 
*Combteur ligres 
*Décalece 


tlère ligre à 11 


‘Dernière ligne 


"marge geucbe 
eLonguaur page 
A#Cowçeur caract 
»LetYeur page 
*Auméro de page 
*Drabeau ” 
*Décalag s1 then 


‘Oécal. for-next 


Pes touche Das à 


fie» sous ProDOs! 


48 LONTR EQU $98 
49 STOCK £Q0 $CE 
50 NL EQU 518 
$1 DEC £00 $r9 
52 MAX EQU SFA 
53 VIRGULE EQU $F8 
54 DF ECJ $5F8 
55 #4 EQU SEC 
ster 
56 N EQU SrE 
a lister 
57 AUX 5o0 506 
54 MARGE EQU 509 
59 NEMAX eov 519 
€0N E90 SIA 
61 NCHAX EQU S$S18 
62 PAGE 600 $1c 
63 QUOTE EQU SiD 
64 TF EQU $iE 
65 PRIT ÆQU $D6 
66 RF sou $p7 
62 NF EQU S$EB 
68 FF EU SE 
69 * (SF est utilisé par 80 col, du //e) 
70 * 
71 GETLN EQU SFD6A 
72 CRDO EQU SDAF3 
73 AMPER EQU 53F5 
74 BASIC EQU sFE53 
75 STXFRR EQU $DeCc9 
76 QUTDO EQU SsDaSsC 
77 LINGET EQU sDAQC 
78 LINPRNT EQU $SED24 
79 FNOLIN EQU SD61A 
80 PRBL3 EQU SF94C 
81 
82 * 
BE" "4 mm 
ë4 * 
85 + INITIALISATION 
86 = 
87 2". 
88» 
89 LDA #54 
90 STA AMPER 
31 LDOA FDBEBUT 
92 STA AMPER+1 
93 DO 1-PRODOS 
94 STA HIME# 
95 FIN 
36 LOA #>0EBUT 
97 STA AMPER+2 
38 Do 1-PRODOS 


HIMEN+I 


# 


4542 +? Longueur 66 11 
gnes par défaut 

NLMAX 

#$50 #* Largeur 80 Par 
faut 

NCHAX 

#57 * Largeur marge 
gauche 

MARGE 

#53F . 

4563 e 

STOCK #1] #* Sfface zone st 
ockage titre st 

#50 # date (5300 4 5 
3££) 

STOCK . 

v2 L 

PRT * Indicateur {p 
rimante 


* COMMANDE LIST 


LO9 


L03 


LOC * 

TITRE * 6L Liste le pr 
ogramme entier 

#50 * 

VIRGULE 

ro 

+1 

#5rr 

N 

N+I 


CHRGET 

L08 . 

#°P: * sLP liste sur 
mrimante 
3 . 

#50 

Z05 

LISTE 

PRT 

LO4 

FRT 

STXERR 

PET 

Loi 
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147» 201 ELSE 257 &Q RIS #* Fin Pregranme 
148 LOS CM 4°,° 202 JM $BE00 259 LDA $C000 * Arrêt du 1lis- 
149 BEQ Lo6 203 FIN 259 8e£ L25 # ting sil Ctri C 
150 JMP  STXERR 204 * 260 ce #4$83 
151 * DOS sms ne 261 BNE L25 
152 LO6 LDA VIRGULE 206 * 262 £LDA $Colo 
153 esa L07 207 # LISTE 263 JM RTS 
154 JMP  STXERR 208 7 264 L25 JSR LIRE! 
155 107 INC VIRGULE 209 2m mn 255 STA LINNUM 
256 JP  LO] 210 * 266 JSR LIRE] 
157 * 211 LISTE = * 267 STA LINNUM4] 
158 LO8 JSR LINGET 212 DO 1-FRODOS 266 CP M1 
159 LDA VIRGULE 213 LDA SAAS54 268 8CC 126 
160 BNEe LO0ÿg 214 ELSE 270 ANT RTS 
161 LDA LINNUN 215 DA S8E31 27) {DA N 
162 STA M 216 FIN 272 CXÆ LINNUN 
163 LOA LINNUM+I 217 ER 45FD <SFDFO ? 273 8CC aTs1 
164 STA Mel 218 STA SLOTSAVE 294 L26 JSR CRDO] 
165 JSR CHRGOT 219 S£Q 2120 275 JSR CADOI 
166 &N6 LOè 220 LDA #'3" sinon slot 3 276 LDA LINNUM+] 
167 * 221 STA SLOTSAVE 277 LOX LINNUN 
168 LOÿ LDA LINNUM 222 120 LOA PART 278 STY AOUX,1 
169 STA N 223 B£Q L22 279 JSR LINPRNT * Impression du 
170 LDA LINNUN+i 224 LDA éSLOT no de ligne 
271 STA N41l 225 JSR GO_PR2 280 STY AUX 
172 JSR CHAGOT 226 L21 BE PART 281 LDA #$0 * 
173 BEC L10 227 122 STA DF 282 CLC * 
174 JMP  STXERR 229 STA NE 293 ADC #$7 LA 
175 * 229 STA MN 284 STA NC #* Marge apres nu 
176 L10 LDA Ml 230 STA QUOTE œéro de 1igne 
177 CMP N+1 231 STA PAGE 285 SEC * 
178 BCC LISTE 232 STA TF 266 S8C AUX * 
179 BNE RTS 233 STA FF 287 TAY * 
180 LOA N 234 STA RF 266 DEY * 
181 CM M 236 LDA 4 289 LOA #$20 , 
182 8CS LISTE 236 STA  LINNUNM 290 127 JSR OUTUO 
193 * 237 LDA Mel 291 DÉY 
D 10 EE << 238 STA LINNUMH+I 292 BNE L27 
185 * 239 JSR FNDLIN 293 LDA #$0 
186 * FIN DU PROGRA#E 240 LDY #53 294 STA TF 
187 * 241 BCS L23 295 STA COUTE 
AUD Dome e-mmmmssmmmer— 242 LDY #50 296 STA RF 
185 * 243 B£EQ PREM£N 297 STA NF 
190 RTS - . 264 JMP CBAINEGE 266 IDY AUX+1 
191 DO  1-FAOOOS 245 * 299 x 
192 LDA SLOTSAVE 246 RTSI JM RTS 900 2 
193 BEQ Liz 247 * 301 ° 
194 L11 LDA 5C008 248 123 JSR CADOI 302 * LECTURE 1ER OCYET D'UNE LIGNE 
195 8PL Li! attente clavler 249 JSR ENIETE 303 * 
car PRIT peut effacer l'éc 258 JP  L26 D04 
ran 251 PREMAEN = * 305 = 
196 LDA SCO10 252 JSR CACOI 306 DEBLGN JSR LIREÏ 
187 FIN 253 JSR ENTETE 307 &NE L3i 
198 LI2 JSR GO_PR 254 JHP L2?4 303 JKP CHAINAGS 
199 DO 1-PRODOS 255 CHAINAGE JSR LIREI 309 L31 CMP #':! * £limine iles ": 
200 JMP AASIC 256 L24 JSR LIRE] * en trop 
/ 5 = 9148- DA A5 FB DO OD A5 50 85 9238- 85 D7 85 EB A4 07 20 DA 
Récapitulation 9150- FC A5 51 85 FD 20 B7 00 9240+ 93 DO 03 4C E0 9 C9 3A 
en version 9158- DO BE A5 50 85 FE AS 51 9248- FO F4 C3 82 DO 2C A9 01 
9160- 85 FF 20 B7 00 FO 03 4C 9250- 85 EB 38 A5 EC E9 04 10 
DOS 9268- C9 DE A5 FD C5 FF 90 1B 9258- 02 A9 00 85 EC AA E@ A9 
9170- DO 06 A5 FE C5 FC BO 13 9260- 20 20 D4 93 CA DO FA A2 
FORMA T 9178- AD F7 95 FO 08 AD 00 CO 9268- 00 BD B2 95 FO 06 20 D4 
9180- 10 FB AD 10 CO 20 D5 95 9270- 93 E8 DO FS 4C EO 92 4C 
9188- 4C 83 FE AD 54 AA 49 FD 9278- 45 93 85 07 A6 EC E68 A9 
Après avoir saisi ce code 9190- 8D F7 95 FO 05 A9 33 8D 9280- 20 20 D4 93 CA DO FA A5 
sous moniteur, VOUS 9198- F7 95 A5 D6 FO 07 A9 31 9288- 07 30 EC C9 30 90 32 C9 
le sauvegarderez par 91A0- 20 D8 95 C6 D6 85 FB 85 9290- 3A BO OD A9 20 20 D4 93 
BSAVE FORMAT,A$9OD1,L8527 91A8- 18 85 1A 85 1D 85 1C 85 9298- A5 07 20 D4 93 4C EO 92 
91B0- 1E 85 EC 85 D7 AS FC 85 92A0- C9 41 90 1D C9 5B BO 19 
91B8- 50 A5 FD 85 51 20 1A D6 92A8- A2 00 85 07 BD B9 95 FO 
90D1- A9 4C 8D F5 03 A9 00 91C0- A0 03 BO OA AO 00 FO OF 92B0- 06 20 D4 93 E8 DO F5 A5 
90D8- 8D F6 03 85 73 A9 91 8D 91C8- 4C EO 91 4C 78 91 20 2B 92B8- 07 20 D4 93 4C EO 92 A5 
90E0- F7 03 85 74 A9 42 85 19 91D0- 94 20 4A 94 4C OD 92 20 92c0- 07 C9 22 FO 03 4C B6 93 
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310 BEQ DÉALEN rs 
se ss LS # Next 7? 28 pu ni 113 5 ds 
313 NEXT LDA 451 de L46 na en és Ke Le ma; Poe Ligne pou 
a LL) La) 367 JSR OUTDOI 417 JP DEBLGN ‘ 
Réduit le décala 368 JM LIRE 418 154 CP 4°,: 
de E ge ee {apr ine 369 LOA AUX] * Le caractère 1 «19 BEQ L55 
j17 ce 644 ja Re MO 21 5 
370 L47 CP 4'"° IDX NF 
318 &PL L32 
519 LDA 450 7 + + 42 Ré Pat 
320 L3z STA FF 373 L48 QOUTE SAS ERS 
571 pa s D. us 2 
32 INX aoors ee 
323 LDA 4520 “4 LEA ms Fe tu: 
324 LI) JSR OUTDOI ., a os 428 pe ne 
0e RE E- Ru 
327 LDX 450 2 a Ho ten QD 
329 L34 LOA NXTIX Qi CHAINE LOA dt d  Loaetscape 
329 850 Lis M Leu 433 * LECTU 
e EN JM PRINT? SELS + 68 ‘entre RE ET IMPRESSION DES TOKENS 
lemets 44: 
331 INx 383 » SE 935 2 
332 ee 
364 XX JMP  CHAINAGE 436 * 
_ 18 JP LIRE a 437 TOREN LOX #50 * Annule indicat 
IRE JSR LIRE] eur coupure de ligne 
335 TOKSNI JMP TOKEN 433 » 
4 387 BEQ XX * 0 de fin de 11 8 
3% 439 STX DF 
_. L4] Fe si 2 £ffectue déca= 388 LS1 BMI ee 440% 
ns Se lage for-next 389 IOX DF 441 SEC 
390 CPX #51 442 SBC 4#$7F 
340 LDA #$20 443 TAX 
34i L42 J$R  OUTDOI 7 Re Poe 444 
542 ox Fe me #0 «45 RU 
34 BNE L42 364 STA AUX+I 446 BNE L6Q 
344 L43 LDA AUX+1 447 LDA #1 
345 BMT TOKENI 395 LDA #520 + Décale de 1 es 448 
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349 BCs Lée on /s2 SU Le - Liber 
350 LOA 4520 22? me Le ps re 
351 JSR  00TDOI 1e LDA QOOUTE 454 a 
352 ÉD RON 401 EOR 4501 455 
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467 JSR NI 

468 JMP DE&EBLCN 

469 L64 LDA AUX+1I 

470 TAX 

471 STY AUX 

472 LDY #5D0 

472 STY FA 

474 LOY #5CF 

425 STY FAC+i 

476 LOY #5FF 

477 LES DEX 

438 REQ L67 

479 L66 JSR LIREZ 

490 &PL Les 

agi eMI L65 

492 JSR SAUTIGN 

433L67 DA #520 

454 JSR OUTDOI 

485 L68 JSR LIRE 

486 BMI L69 

487 JSR OUTDOI 

488 BNE L68 

489 L69 JSR OUTUO! 

490 LOY AUX 

491 LOA 4520 

492 * 

493 PRINT - , 

494 CP 90504 

495 BNE L?2 

496 JSR CRDO2 

497 LDX NC 

498 LDA 4$A0 

499 JSR PRBL3 

500 L72 CMP 458 

$01 @NE PRINT2 

502 JM LIRE 

503 PRINT2 JSR OUTDOI 

504 JSR SAUTLEN 

505 JM LIRE 

506 * 

507 mme mm 

508 * 

509 # SOUS PROGRAMMES 

510" 

SIL Be 

512 * 

$13 OUTvO! . Ld 

Si4 JSR OUTDO 

525 INC NC 

516 ATS 

517 LIRE! - , 

518 INY + LIT DANS 8ASIC 

st9 B8NE SL]! 

520 INC LONTR+1 

521 SLi LDA (LONTA},Y 

522 RTS 

523 * 

524 LIRE? _ 

525 INY LIT DANS LA TABL 
£ DES MOTS CLES 

526 8NE SL2 

527 INC FAC+1 

528 SL2 LDA f(FAC),Y 

529 RTS 

530 * 

531 SAUTLON = * 

532 STA AUX+1 

533 SEC 

534 LDA NCMAX * A 11 ceract. da 
e fin de ligne 

535 * coupe 

536 * * la ligne si * “ où "," 

537 SBC 9458 

538 STA MAX 

539 LDX NC 

540 CPX MAX 

541 BCC RETURN 

542 LDA AUXeï 

Sa3 cwæ d' 

544 BLQ DECALE 

545 Cæ #',° 

546 BSEQ DÉCALE 

547 LOX NC 

548 CPX NCHAN 

549 BNE RETURN 

550 DECAL£ - ° 

551 LDA 454 

552 ADC FF 

553 STA DEC * Décalage a eff 
ectuer 

554 LOA #51 * Marqueur coupu 
re de ligne 

555 STA DF 

556 NI JSR CRDOI Fr Décalage en dé 
buc d'instruction 

557 LDA MARGE 

558 CLC 

559 ac TF 

560 ADC D£EC 

561 STA M 

562 TAX 

361 DEX 

564 IDA 4540 

565 JSR PRÉLIS 


566 RETURN 
567 


568 

569 

570 CRDOÏ 
S2?1 

572 

573 CRDOZ 
524 

525 

576 

577 

538 

579 S2L11 

580 Sz12 

581 


582 

583 SL13 
584 

535 

536 ENTETE 
597 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

596 

600 SL21 
601 

602 

693 

604 SI23 
605 

606 

697 

608 

609 SL23 
610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 * 
622% 
623 PRTK 
624 SL4] 
625 

626 

627 

629 

629 

630 SL42 
611 * 
632 * 
633 
634 


635 
636 
633 
6368 
639 * 
640 
64 
642 TIR 
643 

644 

645 

646 

647 

648 DTE 
649 

#50 

651 

652 

633 SLS 
654 

655 

656 

657 

658 

658 

660 

661 

662 

663 

664 

665 INPUT 
666 SL61 


BEQ 
CMP 
BEQ 
JAP 


450 
e local 
DEC 


* Annuie décaieg 


dl Même page 

PAG£ * Page auivante 

£ENTETE 4 Si lère peoge n 
e fait pas de saut 

#54 * de 4 lignes 

CRDO 


* DATE 


4sF 
NC 
SL?1 
#52 


#5A0 
PR&L3 

#$0 
GUAPAGE,X 
SL23 


* Imbrime “Page 


* TITRE 
* Imprine titre 


#50 
fSTOCK) , Y 
SL42 
QOUTDO 


4521 
SL41 


+ 

27: * Saisie du ricr 
e ou de le date 

TTR 

0° 

DTE 

LONG PG 


* Sélection entrée date ou titre 


#50 
SIUCK 
‘503 
STUCK+] 
vIVE 
SES 
+520 
STICK 
503 
STOCK41 
VIDE 
Ss18 


$39 


#ZNPUT 
538 
P>INPUT 
539 
GÊTILN 
#521 
INPUT 
ERR 

#50 


$200, Y * Transfert dans 


zone de stockage 


697 
668 
669 
676 
671 
672 
673 
674 
675 
676 
677 
62789 
679 
690 
681 

682 

683 
CL 

685 
686 
697 
6se 
689 
690 
691 

692 

693 
694 

695 

696 
697 

698 

699 
700 
701 

702 
703 
704 
705 
706 


707 
708 
709 
710 
711 

71è 
713 


714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
716 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
749 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
763 
766 
767 
768 


SL62 


VIDE 


SL72 


LONGPG 


SL60 


SL81 


SL90 


SL91 


SL101 


SL112 





* Longueur page 


* Moxi 127 ligne 


* Largeur de la 
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L'Applesoft est un peu à l'étroit dans la 


zone mémoire 


réservée 
imagination débordante. Les 48Ko qui 
vous sont genéreusement alloués se 
revèêlent parfois insuffisants lorsque vos 
programmes Basic utilisent des images 
HGR et ou des routines en langage machine 





à votre 


importantes. Si, de plus, votre programme 
utilise des tableaux alphanumériques, il ne 
vous reste qu'une peau de... pomme. 


Le programme NAVETTE va 
vous perinettre d'utiliser les 16 
Ko de la carte langage pour placer 
l'ensemble des programmes 
binaires dont a besoin votre 
programme Basic. 


Les solutions 


Programmes binaires 
n'utilisant pas de 
routines Applesoft 


Le plus simple consiste à recopier 
le Moniteur de la ROM vers la 
RAM aux mêmes adresses (de 
$F800 à $FFFF). Tout appel au 
Moniteur à partir de la carte 
langage sera alors dirigé vers la 
RAM. Ainsi, à chaque utilisation 
de notre programme binaire, une 
routine en RAM principale (sous 
l'adresse $9600), se chargera de 
transférer le contrôle à la carte 
langage, puis de reprendre la main 
en finale en commutant vers la 
ROM avant de retourner au 
programme Basic. 


Programmes utilisant des 
routines Moniteur 
et Applesoft 


Le problème se complique car il y 
a conflit entre l'utilitaire en 


Suite du source ‘T.FORMAT"’ 


+69 HEX O0 

770 LET ASC ‘ LET : 
771 HKEX 00 

772 THEN ASC  ‘ THEN' 
77) HEX 00 

774 NUMPAGE ASC ‘PAGE 
725 HEX 00 

776 NAXI H£X 0707 

777 ASC  ‘MHAX-127 
779 H5X 00 

779 

780 CO_PR . . 

781 LDA  SLOTSAVE 


782 GO_PR2 STA 


PR_DATA+3 
ataire 


‘scc-sloc destin 


langage machine et la ROM 
Applesoft ; ceux-ci commencent 
en effet à la même adresse (à 
partir de $D000). Comme dans le 
cas précédent, une routine fera la 
haison entre le programme Basic 
et la carte langage, maïs elle 
servira de plus d'aiguillage pour 
tout appel (et retour) de routine 
ROM (Applesoft ou Moniteur). 
C'est l'objet du programme 
NAVETTE. 


Principe 


Le programme NAVETTE va 
servir d'interface entre le 
programme en ‘carte langage’ et 
les sous-programmes en ROM. 
Son principe repose sur une 
utilisation de l'instruction BRK 
pour passer le relais à N'AVETTE. 
Il suffit de placer, dans le 
programme destiné à être logé 
dans la RAM supérieure, un 
BREAK (BRK:00) avant chaque 
appel d'une routine de la ROM. A 
la rencontre de ce code, le 
moniteur saute à l'adresse 
vectorisée par $FFFE et $FFFF, 
en l'occurence, on saute à 
NAVETTE qi, comme sont nom 
l'indique, fera la navette entre la 
RAM et la ROM. 


listé pages précédentes 


783 20 1-PRODCS 
784 JSR CRDOO 

785 LDA #4 ctrl-d 
786 JSR  OUTDO 

787 FIN 

788 LDX #0 

789 Go2 LDA PR DATA, X 
790 BEQ GO3 

791 20 1-PRGOCS 
792 JSR  OUTDO 

793 £ELSS 

794 ORA #$80 

795 STA $200,Xx 
796 FIN 

797 INX 


\ueté 


Jear Pa Arlel 


Pratiquement… 


Dans votre programme Basic, 
charger NAVETTE et l'utilitaire 
par une séquence telle que : 


10 D$= CHR$(4): PRINT D$"B 
RUN NAVETTE" 

20 A = PEEK (-16255) : A = 
PEEK (-16255): PRINT DS 
"BLOAD UTILITAIRE": À = 
PEEK (-16254) 


L'utilitaire sera ensuite exécuté 
par l'instruction ‘&' dite 
ampersand. 


Modification 
de l'utilitaire 


Assembler le programme que l'on 
veut charger dans la carte langage, 
à partir de l'adresse $D000, en 
ayant pris soin de placer des BRK 
avant chaque appel à la ROM par 
JSR ou JMP ou avant chaque 
instruction accédant à la ROM 
(par exemple LDA $FBB3 qui 
détermine le type de la machine). 


Il est à noter que tout programme 
existant peut être modifié et 
assemblé de la sorte. Si ce 
programme utilise l'ampersand, il 
suffit de supprimer la partie 


798 aN£ GU2 
799 co3 _ ° 

800 DO  PROUOS 
go! JSR SBE0J 
802 LDA 48 

893 FIN 

804 RTS 

805 

906 PR_DATA ASC ‘'PR#]' 
807 BEX  0D00 
808 SLSTSAVE ASC ‘l' 
909 20 1-PRODOS 
810 END 

gi FIN 
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WW Qomment oérer des outines binaires sur Ja care lang. 


relative à l'initialisation de 
celui-ci. Par contre les 
instructions Basic utilisant cet 
artifice restent inchangées. 
L'utilisation de NAVETTE à 
l'intérieur d'un programme Basic 
est entièrement transparente. 


Facilités 


Le programme CONVERT permet 
d'ajouter les BRK dans les 
sources devant les instructions 
JSR et JMP appelant un sous- 
programme en ROM. 


Ce programme se charge 
d'identifier toutes les adresses en 
ROM, définies par des labels 
grâce à l'opcode “EQU" ou "=", 
d'un programme source écrit avec 
BIG MAC, sauvegardé sous 
forine de fichier TEXT. Il insère 
ensuite les BRK automa- 
tiquement ; il sauve enfin sur 
disquette, le programme modifié, 
en ajoutant le suffixe “.LC”. 


Ilutilise les routines suivantes : 


°_ INPUT : input généralisé 
acceptant tous caractères ; 

+ DIM.VAR.OBJ : routine 
publiée dans Pom's 12 ; 

° FRE (16): routine de ‘garba- 
ge’ publiée dans Pom's 2. 


Techniquement.… 


A chaque appel de l'ampersand le 
scénar1o est le suivant : 

1] NAVETTE commute sur la 
mémoire supérieure (carte 
langage) ; 

2} exécution de l'utilitaire 
jusqu'à la rencontre d'un BRK 


qui dinige sur NAVETTE ; 
3] les registres sont alors 
sauvegardés. On recherche 


ensuite l'instruction suivant BRK. 
On commute alors l'accès à la 
ROM et cette instrution est 
exécutée ; 

4] enfin, NAVETTE commute de 
nouveau sur notre utilitaire ; 


S} le retour au Basic ne saurait se 
réaliser sans un petit passage (le 
dernier jusqu'au prochain) par 
NAVETTE, qui se charge de 
replacer correctement les 
commutateurs RAM/ROM, avant 
de rendre la main au programme 
Basic. 


NAVETTE a été testé sur ICARE 
de P. CANTOT, version complète 
(SUPER PRINT et TORTUE 
inclus). Avec quelques aména- 
gements bien sûr, il semble 
donner toute satisfaction. 


Précisions, limites 


NAVETTE est assemblé en 
page 3 à partir de l'adresse 
$300, l'utilitaire étant placé 
au-dessus du DOS, HIMEM 
conserve sa valeur fixée par le 
DOS soit $9600 (38400) ; 


+ NAVETTE est incompatible 
avec les DOS déplacés dans la 
carte langage, de même 
qu'avec PRODOS qui utilise 
lui aussi cet espace mémoire ; 


+ NAVETTE commute sur le 
Banc 2 etla mémoire commune 
de 8Ko. Pour commuter sur le 
Banc 1 voir la remarque 5. 
Pour plus de précisions voir 
l'article de Gérard Michel dans 
le numéro 19 de Pom's, page 
29 ; 

* il ne faut pas que l'utilitaire 
fasse appel à des interruptions 
(BRK), les vecteurs d'inter- 
ruptions étant modifiés par 
NAVETTE ; 


* si vous voulez placer plusieurs 
utilitaires indépendants sur la 
caite langage, il vous suffit, 
avant l'appel de l'un d'eux, de 
POKer son adresse d'implan- 
tation en $31E (798) et $31F 
(799) dans l'ordre habituel : 
adresse basse puis haute. Si 
vous voulez utilisez le BANC 
1, POKez 0 à la place de 128 


en $324 (804). . 


Programme 
‘CONVERT" 


10 


60 F'S(1) = "INPUT":FS(2) = 
70 DS = 


500 


REN 


! INSERTION DES ERK 

1 DANS PGM SOURCE BIG MAC 
1 
! 


JEAN PAUL ARBEL 


nn tn un 


HIMEM: 37490: HOME : TEXT 

REM  AMPERSAND -> DIM.VAR 

POKE 1013,76: POKE 1014,124: POK 
E 1015,146 

DIM AS{1): DIM ZS$(1): DIM FS(3) 
DIM.VAR. 
OBJ":FS5(3) = "FRE(16)" 

CHR$ (13) + CHRS (4) 

ONERR GOTO 100 

FOR I = 1 TO 2:F$ = F${I): PRINT 
DS”BLOAD"FS$S (I): NEXT : GOTO 110 
CALL 768: GOSUB 1080: GOTO 80 
Z1S = ” BRK” + CHRS (13) + " JS 


Z2S = " BRK° + 
ps" 

REM LECTURE FICHIER 
VT = 10 

VTAB VT: INVERSE :RS = "NOM DU 
FICHIER SOURCE À TRANSFORMER?" : 
GOSUB 1010 
VTAB VT + 1: 
NPUT F1$ 
ONERR GOTO 190 

PRINT DS"OPEN"F1$: GOTO 210 
E = PEEK (222): IF E = 4 THEN E 
= 7 

IF E < > 11 THEN PRINY DS"CLO 
SE"FIS 

CALL 768: GOSUB 1030: GOTO 150 
PRINT DS"READ"F'1$ 

ONERR GOTO 250 

HOME :RS = "CHARGEMENT DU FICHI 
ER:": GOSUB 1010: vYA8 S: INVERS 
E :RS = F1$: GOSUB 1010 

FOR I = 1 TO 2000: CALL 782 INP 
UT AS({I): & A$ + : NEXT 

CALL 768:NI = I — l:J = 1 

PRINT DS$S"CLOSE"F:S 

IF I < 2 THEN PRINT DS"DELETE" 
FIS:E = 7: GOTO 200 

REM RECHERCHE DES LABELS... 
REM ,...APPLESOFT OU MONITEUR 
HOME :RS$S = "VOICI LA LISTE DES 
LABELS": GOSUB 1010: VTAB 3:R$ = 
"DE LA ROM APPLESOFT OU MONITEU 
R:*: GOSUB 1010 

FOR I = 1 TO Nl:K = LEN (AS{I) 
} - 6: IF K < 3 THEN 410 
BS = MIDS (AS(I},K,4):CS = LE 
T$ (B$,1}: IF CS = "=" OR CS =" 
U" THEN 340 

GOTO 410 
BS = RIGHTS (ES$S,2} 

IF BS = "SD" OR B$ = "SE" OR B$ 
= *$F" THEN 370 

GOTO 410 

IF CS = "=" THEN ZS(J3) = 
(AS(I),K - 2}: 6 ZS # : 
0 


CHR$S (13) + ” JM 


HTAB 3: CALL 7827 


LEFYS 
GOTO 39 


IF CS = *U" THEN 2S(J) = 
(AS(I),K - 4]: 6 2S + 
PRINT 2$(J) 
J=J+1 

NEXT 
N2=9J-1 

REM  INCLUSION DES BRK 
ONERR GOTO 460 
FS$ = FS(3): PRINT DS"BLOAD"FS: G 
OTO 470 

CALL 768: GOSUB 1080: GOTO 440 
CALL 37500 

FOR I = 1 TO N1 

IF INT (I / 500) = I “ 500 THE 
N PRINT : PRINT "PATIENCE JE FA 
IS LE MENAGE!"};: CALL 37500: PRI 
NT "C'EST FINI": PRINT 

FOR J = 1 TO 12 


LEFTS$ 
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510 IF MIDS (AS{I),1,1) < 
HEN 670 

520 3 = J #1: IF MIDS {A$(1),J,1) 
< > "S" THEN 550 

530 ï = J + 1: IF MIDS (AS(I),J,1) 
< > "R" THEN 670 

540 ZS = Z1S: GOTO 590 

S50 IF MIDS (AS{I),9,1) < > "M"T 
HEN 670 

560 J = J + 1: IF MIDS (AS{I),J,1) 
< > "P" THEN 670 

570 ZS = 225 

580 REM ON A UN JSR OU JMP 

590 M=J + 2 

600 YS = *®" 

610 IF J > 4 THEN YS = 
J,J- 4) 

620 FOR K = 1 TO N2 

630 L = LEN (ZS(K)) 

640 IF LEN (AS(I)J) - M +1 <L THE 
N 660 

650 IF MIDS (AS(I),M,L) = ZS(K) TH 
EN AS{I) = YS + 2S + ZS{(K): PRIN 
T AS{I), "LIGNE NÛ "1: PRINT :K 
= N2 

660 NEXT K:J = 12 

670 NEXT J: NEXT 1 

680 HOME : PRINT “VOULEZ-VOUS SAUVE 
R LE FICHIER TRANSFORME": PRINT 
: PRINT " SUR DISQUETTE 
3 <O,N>"; 

690 GET RS 

700 IFRS = "N" THEN END 

710 IFRS < > "O" THEN 690 

220 PRINT 

730 F2S = F1S + “.LC* 

740 ÔONERR GOTO 760 

750 PRINT DS"OPEN"F2S: PRINT DS"DEL 
ETE"F2S: PRINT DS"OPEN"F2S: PRIN 
T DS"NRITE"F2S: GOTO 770 

760 CALL 768: GOSUB 1080: GOTO 740 

920 FOR I = 1 TO N1 

780 PRINT AS{IJ: NEXT 

790 PRINT DS"CLOSE"F2S 


2 RE 


LEFTS (AS(I 


800 END 

1000 REM SOUS-PGM DE MESSAGES D'ERR 
EUR 

101 HTAB (40 - LEN (RS)) / 2: PRI 


NT RS: NORMAL : RETURN 

1020 VTAB 21: PRINT "APPUYEZ SUR RE 
TURN POUR UN NOUVEL ESSAI": VYA 
B 23: PRINT " OU APPUYEZ SUR E 
SCAPE POUR QUITTER" ;: RETURN 
VTAB 19:RS = "POUR VOIR LE CAT 
ALOGUE TAPEZ ?*: GOSUB 1010: RE 
TURN 
1040 VTAB 23: HTAB 38: GET RS: IF 
ASC (RS) = 13 THEN HOME :VT = 
10: RETURN 

IF ASC (RS) = 27 THEN END 
ONERR GOTO 190 

IF ASC {RS) = 63 THEN HOME : 
PRINT DS$;"CATALOG": GET RS:VT 
= 23: RETURN 
1070 GOTO 1040 
1080 E = PEEK (222) 
1090 HOME : VTAB 5 
1100 ON E GOTO 1190,1180,1190,1190, 
1210,1210,1130,1170,1110,1150, 1 
250, 1150,1150 

PRINT CHRS (7};"BREAK IN "; P 
EEK (219) + PEEK (219) * 256: 
END : RESUME 
1110 RS = "DISQUETTE PLEINE": GOSUB 
1010: VTAB 10:RS = "VEUILLEZ CH 
ANGER DE DISQUETTE": COSUB 1010 
GOSUB 1020: GOSUB 1040: RETURN 


1030 


1050 
1055 
1060 


1105 


1120 


1130 RS = "FICHIER NON TROUVE" 

1135 GOSUS 1010: VTAB I0:RS = "VOUS 

AVEZ TAPE:": GOSUB 1010: VTAS 

12: INVERSE :RS =» FIS: GOSUB 10 

10 

GOSUB 1020: GOSUB 1030: GOSUB 

1040: RETURN 

1150 RS = "LE FICHIER SOORCE NE PEUT 
ETRE": GOSUB 1010: VTAB 7:RS$ = 
"QU'UN FICHIER DE TYPE TEXTE": 
GOSUB 1010: VTAB 10:RS = "CREE 
PAR L'ASSEMBLEUR BIG MAC”: GOS 
UB 1010 

1160 GOSUB 1020: GOSUB 1030: GoSUB 
1040: RETURN 

1170 RS = "VERIFIEZ LA FERMETURE DE 

LA PORTE": GOSUB 1010: VTAB 12: 

RS = "OU PLACEZ UNE DISQUETTE 0 

ANS LE LECTEUR": PRINT RS 

GOSUB 1020: GOSUB 1040: RETURN 


1140 


1180 


1190 RS = "DISQUETTE PROTEGEE": GOSU 
B 1010: VTAB I10:RS = "VEUILLEZ 

ENLEVER LA PROTECTION ET": GOSU 
B 1010 

GOSUB 1020: GOSUB 1040: RETURN 


1200 


1210 RS = "LE FICHIER *“ + FS + * EST 
ABSENT": GOSUB 1010:RS = *“VEUI 
LLEZ PLACER LA BONNE DISQUETTE 
ET": VTAB 7: GOSUB 1010 

1220 GOSUB 1020: GOSUB 1040: RETURN 

1250 RS = "NOM DE FICHIER INCORRECT" 
: GOTO 1135 





Source 
‘T.NAVETTE"’ 


Assembleur Big Mac 


1 LRLLLLLLLELELELLELELLLLLLEL227] 
2 .. .. 
3 * sos. .e 
4 LEA : t .…. 
os ** 4: NAVETTE : ,, 
GRR Lo <<; 5:55 15 212 t v” 
7 .. 
8 ** PAR Jean Paul ARBEL ** 
9 .. .. 
10 .. .. 


1] sronvaneeumrsesesessssssemssess 


13 ORG $300 

14 AMPERV - S3ES 

15 UTIL - $D0C00 
16 RAMI - $C08 
17 Ram - $Cos3 
18 ROM - SCo82 
19 ROM! - $cos9 
20 ROM2 - $cosl 
21 IRQ - SFFFE 
22 


23 rrrrssssasecensessensennusens 


24 *** VECTORISE L'AMPERSAND v** 


26 LDA #$54C 

27 STA AMPERV 
28 LOA #<DEBUT 
23 STA AMPERV#I 
30 LDA #>DEBUT 
31 STA AMPERV+2 
32 RTS 

33 


34 teévtemeéreeseserremesesesens 


35 *##*  VECTORISE LE BREAK ne» 

36 

37 SEBUT JSR COMMUT :Commute le R 
OM ect le Bank 1 ou 2 

38 LOA #<çGo :Vectorise le 
&RK vers NAVETTE 

33 STA JRQ 

40 LDA #>60 

41 STA IRQ+1 

42 JSR OTIL ‘Exécute l'ut 
ilitaire 

43 BIT ROM ‘Retour au BA 
SIC 

44 RTS 

#5 BANK DFB $80 <0 - Bank 1, 
S$80 — Bank 2 

46 

47 


PT'OCLELELLELEEE EEE ELLE EL EZ EE LE LEEEEETE] 


49 ** NAVETIE entre la RAN et la ROM #» 


SQ verrsesssssssenmemenussesesesesenmeemamre 


+ HA Sauvegarde des perenètres 

53 co STA SAVA ‘A 

S4 STY SAVY Li 

55 PLA 

56 STA SAVE +P 

57 LDA $6 

58 STA SAVE *R6 

59 LOA $7 

60 STA SAV? 4R7 

61 PLA 

62 STA $6 :ADRL 8RK+2 

63 PLA 

64 STA $7 “ADRH BRK+2 

65 

66 * Recherche l'instruction aPrés le ER 
X 

67 LOA $€ 

68 BNE SAUT 





69 DEC S$? 


70 SAUT DEC $6 

7i LDY #52 

72 SOUCLE  LOA ($6),Y :Transmission 
de l'instruction 

73 STA INSTR, Y 

74 DEY 

75 BPL BOUCLE 

76 CMP #$4C - GECODE - JP 
2 

77 BEQ JUMP 

78 CMP #$6C :OPCODE = JMP 
Indirect ? 

79 BEQ JUMP 

80 Cæ #57C #OPCODE = JMP 
préindézxé ? 

81 BEQ JUMP 

82 


83 * Calcui adresse de retour en Carte L 
angage (sauf s£ JMP) 


44 CLC 

85 LDA 56 

86 AGC #52 :ADRL BRK+3 
87 TAŸY 

88 LOA $7 

89 ADC #50 ; AURA BRK+I 
90 PHA :ADRH Retour 

utilitaire - 1 
91 TYA 
92 PHA “ADRL Retour 
utilitaire - 1 

93 

94 * Restauration des paramètres 

95 

96 JUMP BIT BANK “Bank 1 ou 2 
97 HPL J1 

98 BIT ROM2 

99 BIT RON 

100 JAP J2 
101 91 BIT ROM] 

102 BIT ROM 

103 J2 LDA SAV6 :R6 

104 STA S6 

105 LDA SAV7 :R7 

106 STA S$7 

107 LOY SavYr sY 

198 LOA SAVE :P 

103 PHA 

110 LDA SAVA :A 

321 PLP 

112 JSR INSTR 

113 


Jig rrremriseseeseeseseseneerrrre 


115 * COMMUTE LA CARTE LANGAGE * 


116 

117 COMNGT PHP 

119 BIT RANK ‘Bank 1 ou 2 
119 BPL C1 
126 BIT RAM 
121 BIT RAM2 
122 JP C2 
123 Ci BIT RAMI 
124 BIT RAMI 
125 C2 PLP 

126 RTS 

127 


]J28 vunvonsenennnnenaseniesmnnens 
129 ** EXECUTE L'INSTRUCTION *#* 
130 


131 INSTR Ds 3 “Tnstruction 
eprés ie BRK 

132 RTS 

133 

134 sésesssssssssssssssssssesense 

135$ =*+ SAUVEGAROE FARAMETRES #** 

136 

137 SAVA 0S 1 

138 SAVY Ds 1 

139 SAVP Ds 1 

140 SAVé LL 1 

141 SAV? Ds 1 


Routine ‘FRE(16)’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE FRE(16),A$927C.L$1F9 


927C- 4C 86 92 ES 
9280- 6E C9 04 90 01 60 20 04 
9288- 94 A6 73 AS 74 686 6F 85 
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9368- 9D 12 94 BD 34 94 9D 


9388- D6 A6 1B A5 19 9D 13 
9390- A5 1A 9D 14 94 A5 18 


93C0- FO F7 38 A5 6F FD 34 





10 


ÉÉRRERERERRE 


Routine ‘INPUT’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par : 
BSAVE INPUT,A$300,L$23 


0300- A9 00 85 D8 68 A8 68 A6 
0308- DF 9A 48 98 48 60 20 B1 
0310- 00 20 E3 DF 85 85 84 86 
0318- 20 2C D5 C8 E8 20 E9 E3 
0320- 4C 9A DA 


E.P.E. 5.0 


Sous DOS, 


Sous ProDOsS, 


en 40 colonnes, 
en 60 colonnes, 


Sur 


Apple J[+ 
Apple //e 
Apple //e+ 
Apple //c 


Vous le trouverez 
page 74. 
Vous avez déjà 
E.P.E. ? 
Nous le mettrons à 
niveau ! 


Routine 


DIM.VAR.OBJ’ 


Après saisie de ce code sous moniteur, 


vous le sauvegarderez par : 


BSAVE DIM. VAR.OBJ,A$927C,L$18E 


927C- A4 
9280- A4 
9288- A2 
9290- 86 
9298- 00 
92A0- 24 
92A8- C8 
92B0- 06 
92B8- 09 
92C0- 20 
92C8- C9 
92D0- 1C 
92D8- 11 
92E0- 85 
92E8- 18 
92F0- C5 


6B 
6c 
00 
1D 


84 

84 
86 
86 
04 
11 

21 

DO 
85 
00 
DO 
50 
E6 
4C 
06 
FO 


18 

19 
07 
09 
E6 
C9 
C9 
E2 
07 
FO 
03 
93 
1D 
B4 
DO 
1C 


A0 
86 
FO 
1B 
25 
c9 
E6 
A0 
0F 
4C 
20 
A5 
92 
07 
20 


84 
86 
20 
35 
33 
20 
A5 
B1 
B1 
93 
92 
09 
00 
B1 
93 


08 
1C 
B1 

c9 
cg 
95 
07 
B8 
00 
E6 
4C 
80 
B1 

18 
85 





E6 


c8 


Récapitulation 


‘NAVETTE" 


Après avoir saisi ce code sous 


moniteur, vous le sauvegarderez par 


BSAVE NAVETTE,A$300,L$B6 


0300- 
0308- 
0310- 
0318- 
0320- 
0328- 
0330- 
0338- 
0340- 
0348- 
0350- 
0358- 
0360- 
0368- 
0370- 
0378- 
0380- 
0388- 
0390- 
0398- 
03A0- 
03A8- 
03B0- 


A9 
F6 


4C 
03 


B2 


8D 
A9 
03 
82 
co 
03 
B4 
85 
02 
06 
4C 
7€ 
A8 
2€ 
2C 
co 
06 
03 
28 
10 
4C 
co 
00 


F5 
03 
A9 
EE 
60 
68 
03 
06 
c6 
99 


03 
8D 
25 
PE 
80 
8D 


10 
03 


8D 
60 


FE FF 


00 
B1 
03 
82 
07 
06 
88 
6c 
A5 
00 
09 
7E 
AD 
85 
48 
08 
co 
8B 
00 


DO 
03 
A5 
B5 
A5 
A0 
10 
FO 
06 
48 
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MÉRUNCHER 





e doute que personne 

n'ai jamais eu de 

problèmes de lecture ou 

de correction sur une 
ligne malheureusement trop 
grosse pour êre claire ou encore 
pour que le curseur puisse la 
parcourir d'une extrémité à 
l'autre. D'autre part, certains 
possèdent peut-être un 
CRUNCHER (celui du Pom's 22 
par exemple...), programme qui 
installe sur une même ligne 
plusieurs autres consécutives en 
les séparant avec les ‘deux-points' 
(:) habituels. 


Il est toutefois utile de pouvoir 
transformer son programme 
Applesoft afin qu'il n'y ait qu'une 
instruction par ligne car il est alors 
facile de lire un listing, de le 
comprendre et de le modifier. 
C'est ce que le DECRUNCHER 
est à même de faire. 


Comment faire ? 


Pour l'utiliser, il suffit de charger 
par un LOAD le programme Basic 
comme vous le faites d'habitude, 
puis de taper : 


BRUN DECRUNCHER ou 
CALL 35072 s'il est déjà en 
mémoire. 


Les changements que le 
DECRUNCHER effectue sont : 


° une instruction par ligne sauf 
après IF étant donné que ce qui 
le suit est conditionné par le 
test ; 

* un renumérotage de 1 en 1 
avec modification des GOTO, 
GOSUB, DEL, des THEN, 
LIST, RUN lorsqu'ils sont 
suivis de numéros de ligne, et 
enfin, des ON XX GOTO/ 
GOSUB. 


Il existe toutefois quelques 


limitations : 


+ le texte original éc it en Basic 
ne peut prendre plus de 14336 
octets soit 14 Ko, auquel cas il 
affichera : TEXTE TROP 
LONG ; 

* _ilnedoit pas avoir plus de 640 
lignes à l'origine. (Le nombre 
de lignes qui résulte du 
décrunchage n'est limité que 
par l'Applesoft lui-même) ; 

+ le programme décrunché ne 
doit pas pouvoir faire plus de 
18688 octets, soit 18,25 Ko. 
(Le programme décrunché 
étant généralement plus 
important que l'original) ; 

* au cas où le programme 
découvre un GOTO, GOSUB, 
DEL, LIST, se référant à une 
ligne inexistante, il enverra : 
PAS DE LIGNE X. 


Le principe 


Il est tout d'abord nécessaire, 
voire indispensable d'étudier 
rapidement la structure du texte 
d'un programme Applesoft en 
mémoire. L'adresse de début du 
texte se trouve en TXTTAB 
($67.68) et la fin en PRGEND 
($AF.BO). Ce sont donc les octets 
situés entre ces deux adresses 
qu'il s'agira de traiter. Ce 
traitement se déroulera globa- 
lement ainsi : 


+ lire les 2 premie s octets qui 
représentent l'adresse de la 
prochaine ligne ; 

- lire les 2 suivants qui ne sont 
autres que le numéro de la 
ligne ; 

* puis étudier la suite de la ligne 
afin de trouver ‘:' ; 

+ sionles trouve, ma quer la fin 
de la ligne actuelle par un octet 
nul puis commencer une 
nouvelle ligne sur laquelle on 
mettra la suite ; 


Patrice 
Neveu 


* sinon, passer à la prochaine 
ligne. 


En cours de route, à chaque fois 
qu'on lira une nouvelle ligne de 
l'original, on mémorisera son 
numéro ainsi que celui de celle qui 
suivra. (N'oublions pas qu'il y a 
renumérotation !) Avec un tel 
processus, on obtient le 
programme décrunché, mais sans 
que les GOTO, GOSUB etc. 
soient modifiés. Une deuxième 
passe s'impose alors ; il faut : 


*< lire la ligne comme 
précédemment mais en 
cherchant tous les mots-clé 
susceptibles d'être suivis par 
un ou plusieu s numéros de 
ligne ; 

* identifier ce ou ces numéros et 
les rechercher dans la table 
construite précédemment ; 

* si on a trouvé, échanger 
l'ancien numé o par le nouveau 
qui est issu de la 
renumérotation ; 

* sinon, il y a une e reur et on 
s'arrête ; 

* puis, si tout va bien, on passe 
à la prochaine instruction. 


Il est alors utilisable, mais mieux 
vaut le sauver avant car, s'il 
empiète sur la page graphique 1 et 
qu'il l'utilise, gare aux 
problèmes ! 


Enfm, à titre d'exemple, voici un 
listing et sa représentation en 
mémOIrE : 


10 TEXT : 
20 GOTO 10 


HOME 


0800- 00 09 08 OA 00 89 3A 97 
0808- 00 11 08 14 00 AB 31 30 
0810- 00 00 00 


$801.802 : adresse de la 
prochaine ligne 


ons 
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$803.804 : numéro de ligne 
$000A = 10 

$805 : token de TEXT 

$806 : : 

$807 : HOME 

$808 : fin de ligne 

$809.80A : adresse de la 
prochaine ligne 

$80B.80C : numéro de ligne 
$0014 = 20 

$80D : token de GOTO 

$80E.80F : codes ASCII de 1 
($31) et de O ($30) 

$810 : fin de ligne 

$811.812 : fm de programme 


Le même programme mais 





Programme 
6 3 
Programme DECRUNCHER.S 
‘DECRUNCHER DEMO’ Assembleur Big Mac 

10 TEXT : HOME : INVERSE : PRINT " D 1 

EMONSTRATION DE DECRUNCHAGE “: NO 2 LST ON 

RMAL : POKE 34,1 os 
20 PRINT "VOICI LE LISTING DE CE PROGRAM 5 OET 55000 

E:": PRINT : LIST 6 
30 VTAB 22: FLASH : PRINT ‘“ FRAPPEZ UNE T 7 

OUCHE POUR LE DECRUNCHER PUIS FAITES CRELLLELLLLLLLLL LL LEE ELLE LLELLLLLLE) 

LIST POUR VOIR LE RESULTAT";: GET R$: P “A * DECRUNCHER 1.3 3 


RINT : NORMAL 


40 POKE 34,0: PRINT CHR$ (4) "BRUN DECRUN 


décrunché s'écrira ainsi : 
Q TEXT 


1 HOME 
2 GOTO 0 


800- 00 07 08 00 00 89 00 OD 
808- 08 01 00 97 00 14 08 02 
810- 00 AB 30 00 00 00 


$801.802 : adresse de la 
prochaine ligne 

$803.804 : numéro de la ligne 

$805 : token de TEXT 

$806 : fin de ligne 

$807.808 : adresse de la 
prochaine ligne 


$809.80A : numéro de la ligne 


hs 
nn 








$80B : token de HOME 

$80C : fm de ligne 

$80D.80E : adresse de la 
prochaine ligne 

$80F.810 : numéro de la ligne 

$811 : token de GOTO 

$812 : code ASCII de 0 ($30) 

$813 : fin de ligne 

$814.815 : fi de programme 


Les adresses des lignes suivantes 
et les numéros de lignes sont 
inscrits avec l'octet bas suivi de 


l'octet haut. ä 


RARARAR ARR AA APAR*PATRICEXNEVEUR*#* 


12 
CRE. PERIILILIIILILIILIIIILIILILLITIEEEE 
14 * 8 
15 * - UNE INSTRUCTION PAR LIGNE  Æ 
16 *  SAUF APRES *IF' 8 
17 #* - RENUMEROTATION DE 1 EN 1 8 
18 * AVEC LES GOTO/GOSUB/RUN 4 
La) 
Le même programme, : : LIST/ON/DEL REMIS À JOUR ! 
e LA LA 
mais “décrunché’ 21 * - SOURCE MAXIMUM: 14K # 
22 * 640 LIGNES À 
23 * - RESULTAT MAX. : 18.25K f 
O TEXT 24 * 64000 LIGNES$ 
1 HOME 25 * # 
2 INVERSE 26 RARRARARARARRARARARRARARARARARRR RAR 
3 PRINT ” DEMONSTRATION DE DECRUNCHA 27 
” 28 
GE 
4 NORMAL ® 
30 
5 POKE 34,1 à 
6 PRINT “VOICI LE LISTING DE CE PROGRAMME 32 BASIC EQU 503D0 RETOUR À L'APPLESOFT 
” 33 STXTPT  EQU SD697 
7 PRINT MET TXTPTR À LA VALEUR DE 
8 LIST {TXTTAB) -1 
9 VTAB 22 34 STROUT EQU SDB3A Re 0 D'AFFICHAGE 
F4 PAU ï 35 GETADR EQU $E752 FAC --> 2 OCTETS EN LINNUM 
PRINT " FRAPPEZ UNE TOUCHE POUR LE DEC 36. AXFAG EQU SEBAO FRS ST 
RUNCHER PUIS FAITES LIST POUR VOIR LE 37 FIN EQU SEC4A NOMBRE FLOTTANT --> FAC PA 
RESULTAT"; R CHRGET 
12 GET R$ 38 LINPTR EQU $ED24 CONVERTIR ET AFFICHER X,A 
13 PRINT EN DECIMAL 
si None CO 7 ds 
7 
PURE 790 41 BELL EQU $FF3A BIP SONORE 
16 PRINT CHR$ (4) "BRUN DECRUNCHER" ES 
43 LIMITE EQU 54000 LES DEUX ZONES: $0800.3FFF 





Pom's n° 23 


29 


FT 


80 


85 


ESPACE EQU $5800 
LINADR EQU $06 
TXTPTRS EQU $08 
NOMPTR EQU $18 
LINLEN BQU SiD 
ONFLAG EQU $1E 
LISTFIAG EQU $1F 
LINNUM EQU $50 
TXTTAB EQU 567 
LOMEM EQU $69 
ARYTAB EQU $6B 
STREND EQU $6D 
HOHO EQU $9E 
MOH EQU $9F 
PGREND EQU $AF 
CHRGET EQU $B1 
CHRGOT EQU $B7 
TXTPTR EQU $B8 
DELFLAG EQU $CE 
TEMP 1 EQU SEB 
CHAINPTR EQU SEE 
REMFLAG EQU SFC 
IFFLAG EQU SFD 
ACC EQU $SFE 
GUILLFLAG EQU $FF 
GUILL EQU $22 
DEL EQU $85 
GOTO EQU SAB 
RUN EQU $AC 
IF EQU $AD 
GOSUB EQU $B0 
REM EQU $B2 
ON EQU $B4 
LIST EQU SHC 
THEN EQU $C4 
mm mm ——— mn mm mm me 
* INITIALISE 
f———— mmem mmmmmmme————m—m—_—_— 
LDY #$EA 
LDX #3 
INIT LDA $SBE,X 
STA TEMP]1,X 
STY $SHE,X 
DEX 
BPL INIT 
INX 
STX GUILLFIAG 
STX IFFLAG 
STX REMFLAG 
STX ONFLAG 
STX LISTFLAG 
STX DELFLAG 


/$4000.4900 
ETENDCE DE LA 1ERE ZONE 


ADRESSE LIGNE COURANTE 
SAUVEGARDE DE TXTPTR 
POINTEUR 

LONGUEUR NOUVELLE LIGNE 


=l: ON XX, >=2: ON XX GOTO 
, =0 SINON 

= 1 SI LIST ({XXXX), O SIND 
N 


REGISTRE CONTENANT LE NUME 
RD DE LIGNE 

DEBUT DU TEXTE BASIC 
DEBUT DE LA ZONE DES VARIA 
BLES SIMPLES 

DEBUT ZONE DES TABLEAUX 
FIN DES TABLEAUX, DEBUT DE 
ZONE LIBRE 

2EME OCTET DE FAC 

3EME OCTET DE FAC 

ADRESSE DE LA FIN DU TEXTE 
DU PROGRAMME 

PREND LE PROCHAIN CARACTER 

E DU TEXTE 

PREND LE CARACTERE POINTE 
ACTUELLEMENT 

POINTEUR DE CARACTERE DANS 
LE TEXTE 

= 1 SI DEL XXXXX (, XXXXX}, 
=0 SINON 

4 OCTETS ({$EB.EE), 
DE CHRGET 
POINTEUR DS LA CHAINE DU N 
0 DE LIGNE 

æ1 SI ON EST DANS UN REM, 
0 SINON 

=1 SI ON EST DANS UN IF, 0 
SINON 

SAUVEGARDE DE L'ACCUMULATE 
UR 

-1 SI ON EST DANS UNE CHAI 
NE, O0 SINON 


PARTIE 


TOKENS APPLESOFT 


SEA = NOP 

ON VA DONC MODIFIER 
(ET CHRGOT} 

EN Y METTANT 4 NOP AFIN D' 

EVITER DE 

SAUTER LES ESPACES DANS UN 
REM OU UNE 

CHAINE DE CARACTERES. 


CHRGET 


REMETTRE X=Q POUR L'INITIA 
LISATION 

DU DRAPEAU À GUILLEMETS 
1F 

REMARQUES 

ON XXXXX GOTO/GOSUB 

LIST ({XXXX, XXXX) 

DELETE XXXX (, XXXX) 











STX LINLEN DE LA LONGUEUR DE LA LIGNE 
STX LINNOM ET DE SON NUMERO 
STX LINNUM+1 
LDA #>TABLE PREPARE LA TABLE OU SERONT 
RANGES LES 
STA TABPTR+2 ANCIENS NUMEROS DE LIGNE & 
UIVIS DES 
LDA #<TABLE NOUVEAUX... 
STA TABPTR+1 
LDX 450 MAIS IL FAUT LA REMPLIR DË 
SFF AVANT: 
LDA #<TABLE 
STA CLR+1 
LDA #>TABLE 
STA CLR+2 
LDA #SFF 
LDY #500 
CLR STA TABLE, Y 
INY 
BNE CLR 
INC CLR+2 
ENX 
CPX #10 
BNE CLR 
MSP DR ER PEN 
+ SAUVE LE TXTPTR 
É——_-mommmmmmmmmmmmmmmmmmmmss…— 
LDA TXTPTR 
STA TXTPTRS 
LDA TXTPTR+1 
STA TXTPTRS+1 
fumer 
* VERIFIE SI LE PROGRAMME PEUT 
+ ÊTRE DECRUNCHE 
fosses oessesescerssusseusssasss ass 
LDA PGREND+1 C'EST LE HAUT DE LA FIN 
PROGRAMME 
CMP #>LIMITE  DEPASSE LA LIMITE FIXEE ? 
BCC BEGIN NON, ON PEUT Ÿ ALLER... 
dom. dv mmmmmmmmmm——— 
* ERREUR, IMPOSSIBLE À DECRUNCHER 
fumer 
LDY F>LENMSG 
LDA #<LENMSG 
JSR STROUT AFFICHER LE CHARMANT MESS 
GE QUI SUIT: 
JSR BELL SUIVI D'UN BIP DE MAUVAIS 
AUGURE 
UMP WAOU REMETTRE TOUT EN ORDRE AV 
NT DE SORTIR 
LENMSG  HEX 8D REVENIR À LA LIGNE 
ASC "TEXTE TROP LONG" 
HEX 8D00 
mm. —————— 
+ COMMENCE À DECRUNCHER 
fsses-ts ce ——————— 
BEGIN JSR STXTPT FIXE TXTPTR AU DEBUT DU P 
OGRAMME -1 
LDY TXTTAB ADDITIONNE LA LONGUEUR DE 
L'ESPACE 
STY TXTPTR2+1 DISPONIBLE À L'ADRESSE DE 
DEBUT OÙ 
STY LINADR TEXTE -> TXTPTR2 POUR CHR 
UT 
LDA TXTTAB+1 -> LINADR 
CLC 
ADC #>ESPACE 
STA TXTPTR2+2 
STA LINADR+] 
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172 
173 


174 
175 
176 
177 
178 
179 
180 LIGNE 
181 


182 
183 
184 
185 
186 
187 
188 
189 


LIN 


LINCHR 


190 
197 


LINCHRS 


192 
193 


194 


195 
196 
197 
198 
199 
200 
201 


LINCHR6 


LINCHR4 


202 


203 


204 
205 LINCHRI 


206 EOI 


207 


208 


209 
210 
211 DECRUNCH 
212 
213 


214 
215 
216 
217 
218 


219 


220 


221 
222 
223 
224 


225 
226 
227 DCI 
228 

229 SOL 


STA 
JMP 


LDA 


JSR 


CHRGET 


CHRPUT 
CHRGET 


#>ESPACE 
CHRPUT 


CHRGET 
NUMPTR 
CHRGET 
NUMPTR+1 
LINTAB 
LINPUT 
CHRGET 
ACC 

EOI 


ACC 
CHRPÜT 


JREM 
LINCHRE. 


Ji 

REMF LAG 
sIF 
LINCHRA 
#01 
IFFLAG 
#GUILL 
LINCHRI 
GUILLFLAG 
#501 


GUILLFLAG 
LINCHR 


ACC 
DECRUNCH 
EOL 

BOL 
GUILLFLAG 
LINCHRS 
REMFLAG 
LINCHRS 
IFFLAG 
LINCHRS 
0 

EOL 
LINADR 


CHRPÜUT 


LINADR+1 
CHRPUT 


LINNUM 
DCI 


LINNUM+1 
LIN 


CHRGET 


PREND & STOKE L'ADRESSE DE 
IA PROCHAINE 
LIGNE 


PREND LE NUMERO DE LA LIGN 
E 

A METTRE DANS NUMPTR POUR 
QUE LINTAB ET 

LINPUT S'EN SERVENT 


PRENDRE U?Y CARACTERE 


EOI=FIN D'INSTRUCTION:':", 
FIN DE LIGNE 


METTRE LE CARACTERE POUR L 
E RESULTAT 


MAIS CE N'EST PAS UN REM.» 


SINON IL FAUT SE LE SIGNAL 
ER 


SI CE N'EST PAS UN IF... 
AUTREMENT, LE SIGNALER 


SI CE N'EST RIEN DE TOUT C 
ELA 

SI PAS DE GUILLEMET (0) AL 
ORS DEVIENT 1 

SI ON EST DEJA DANS UNE CH 
AINE {1) CA 

DOIT DONC DEVENIR 0 

PASSE AU PROCHAIN CARACTER 
E 

CETTE FIN D'INSTRUCTION C' 
EST QUOI ? 

C'EST UN : ALORS CREER UNE 
AUTRE LIGNE 

SINON C'EST UNE FIN DE LIG 
NE (00) 


SI CE : ETAIT DANS UNE CHA 
INE, UN REM 

OU UN TEST (IF) ALORS ON N 
E DOIT PAS 

DECRUNCHER SOUS PEINE DE C 
ATASTROPHE ! 


CALCULER ADRESSE DE LA PRO 
CHAINE LIGNE 

QU'IL FAUT STOKER EN DEBUT 
DE LA LIGNE 

ACTUELLE ET AUSSI À LA FIN 
POUR LA 

PROCHAINE... 


INCREMENTE LE NUMERO DE LI 
GME 
POUR FAIRE LA PROCHAINE... 


VA LE STOCKER PUIS LIT LA 
LIGNE 


IL FAUT PRENDRE LES 2 PROC 


230 
231 
232 


233 
234 
235 
236 


237 


238 
239 
240 
241 


242 
243 
244 
245 


246 
247 


248 
249 


250 
251 


252 


253 
254 
255 


256 
257 
258 
259 


CHRGET 
FINI 
LINADR 


CHRPUT 
LINADR+1 
CHRPUT 
LINNUM 


BOLI 


LINNUM+1 
BOL LIGNE 


FINI #50 

CHRPUT 
CHRPUT 
CHRPUT 
AJUSTE 





HAINS OCTETS 

POUR SAVOIR SI ON À FINI 
CE QUI EST LE CAS SI A-00 
SINON ON REMPLACE CES 2 OC 
TETS 


( EN FAIT ICI, 
ECRUNCHAGE } 

{ MAIS ON FAIT PAREIL QUE 
PRECEDEMENT } 


ON EST EN D 


METTRE 3 OCTETS NULS POUR 
MARQUER LA 
FIN DU TEXTE DECRUNCHE 


* C'EST DECRUNCHE, RENUMEROTE 
Le et D me me ie 0 me ou om cm om 
WAOU LDA #$00 MAINTENANT QUE LES GOTO ET 
GOSUB SONT 
JSR CHRPUT MIS À JOUR, ON MARQUE LA F 
IN DU PROGR. 
JSR CHRPUT QUI EST DORENAVANT TERMINE 
JSR CHRPUT 
LDA TXTPTRS REMET LE TXTPTR TEL QU'ON 
L'A TROUVE 
STA TXTPTR AVANT DE DECRUNCHER 
LDA TXTPTRS+i 
STA TXTPTR+1 
LDX #3 ET RETIRER LES NOP POUR RE 


AR 
ro 


METTRE CHRGET 


APPLE COMPUTER FRANCE 


recherche pour 


développer sen Service Clientèle, des 


SUPPORTS TECHNIQUES 


e Possédant une très bonne connaissance de la 


micro-informatique. 


e Capables de proposer des solutions utilisant les produits 


APPLE. 


8 Ayant le sens du service et de la communication. 
e Disponibles rapidement pour rejoindre Apple Computer 


France au siège des ULIS. 


® Connaïssance technique du matériel, langages de pro- 
grammation, télécommunications souhaitée. 


Organisation et Publicite 


Merci d'adresser lettre manusenite, C.V. 


et prétentions (sous réf. D 1231) à : 


Jean-Luc FARAT 


# 


APPLE COMPUTER FRANCE 


Avenue de l'Océanie 


ZA. de Courtabœuf - BP. 131 


91944 LES ULIS Cedex. 


Apple 
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260 FINII LDA TEMP1,X A SON ETAT D'ORIGINE 327 CMP #LIST 
261 STA $BE, X 329 BNE CHRCHGO3 
262 DEX 329 INC LISTFLAG 
263 BPL FINI] 330 BNE CHRCHGO 
264 LDA TXTPTR2+1 ET FIXE DIFFERENTS PDINTEU 33i CHRCHGO3 CMP DEL 
RS 332 BNE CHRCHGO4 
265 STA PGREND 333 INC DELFLAG 
266 STA LOMEM 334 BNE CHRCHGO 
2687 STA ARYTAB 335 CHRCHGO4 CMP STHEN QUAND AU THEN, PEUT-ETRE.. 
268 STA STREND ‘ 
269 LDA TXTPTR2+2 336 BNE CHRCHGO CE N'EST RIEN DE TOUT CELA 
270 STA PGREND+1 : CONTINUER 
271 STA LOMEM+1 337 
272 STA ARYTAB+1 338 == 
273 STA STREND+1 339 * POUR LE THEN IL FAUT UN NUMERO 
274 PLA 340 2 
275 PLA 341 
276 JUMP BASIC HOP, C'EST FINI 342 TESTNUM  JSR CHRGET ON PREND LE CARACTERE SUIV 
277 ANT LE THEN 
DTB No —— 343 CMP #30 ASCII INFERIEUR AU CODE DE 
279 * AJUSTE LES GOTO / GOSUB ) 
280 Homme 344 BCC CHRCHGOI AU QUEL CAS ON CONTINUE DE 
281 COPIER..; 
282 AJUSTE LDX #0 INITIALISE: 345 CMP 4#$3A SINON PEUT-ETRE EST-CE SUP 
283 STX LINLEN LA LONGUEUR DE LA LIGNE ERIEUR À 9 ? 
284 STX TXTPTR LE POINTEUR SOURCE 346 BCS CHRCHGOI ET ALORS ON COPIE BETEMENT 
285 INX LA SUITE 
288 STX TXTPTR2+1 LE POINTEUR RESULTAT 347 BCC GETEND SINON ON TRITURE LE NUMERO 
267 STX LINADR L'ADRESSE DE LA LIGNE EN C DE LIGNE !! 
OURS 348 
288 LDA TXTTAB+1 JADE EEE 
289 STA TXTPTR2+2 350 * POSITIONNE SUR LE NUMERO 
290 STA LINADR+I 35) 2 
291 LDA #>LIMITE 352 
292 STA TXTPTR#1 353 GOFOUND INC ONFLAG 
291 354 GOFOUNDI JSR CHRGET POUR LES GOTO / GOSUB (ET 
294 COPYLIN JSR EOLO CALCULE ADR. LIGNE QUE L'O ASSIMILES) 
N COMMENTE 355 
295 JSR CHRGET PRENDRESL/ ADRESSE, DERLA LI 156 2222 
GNE SUIVANTE 357 * TRANSFORME LA CHAINE EN 2 OCT. 
296 JSR CHRPUT ET LA STOCRER'COMMEMRESULT 150 "===" 5 SSsssesesee 
AT 359 
297 JSR CHRGET 360 GETEND EQU * 
298 BEQ WAOU SI LA PARTIE HAUTE EST NUL 361 JSR FIN GRACE A CHRGET ON CHARGE D 
LE C'EST FINI ANS FAC LE NO 
299 SEC SINON CE RESULTAT COMMENCE 362 JSR GETADR PUIS ON LE TRANSFORME EN 2 
EN $0800 @CTETS 
300 SBC #>ESPACE 363 
301 JSR CHRPUT J64 
302 JSR CHRGET C'EST AU TOUR DU NUMERO DE 365 * FAÏT L'ECHANGE 
LIGNE DBOMNE EEE ne 
303 JSR CHRPUT CONTENU EN 2 OCTETS 367 
304 JSR CHRGET 368 LDA #>TABLE ON SE PLACE AU DEBUT DE LA 
305 JSR CHRPUT TABLE OU 
306 369 STA NUMPTR+1 SONT RANGES LES ANCIENS NU 
307 CHRCHGO  LDX ONFLAG MEROS DE 
308 CPX #2 370 LDA #<TABLE LIGNES ET LEURS REMPLACANT 
309 BCS GOFOUND S 
310 EDX LISTFLAG 371 STA NUMPTR 
311 BNE TESTNUM 372 
312 LDX DELFLAG 373 IDENTIFY LDY #0 
323 BNE GOFOUNDI 374 LDA (NUMPTR),Y LE BAS DU VIEUX NUMERO DE 
314 CHRCHGOO JSR CHRGET ON RECOPIE LA LIGNE EN REC LA TABLE EST 
| HERCHANT UN 375 CMP LINNUM COMPARE À CELUI QU'ON RECH 
315 CHRCHGOI JSR CHRPEUT SAUT {GOTO / GOSUB I THEN ERCHE 
XXXXX) 376 BNE NEXTIDO SI CE N’EST PAS LE MEME, À 
316 BEQ COPYLIN 09 SIGNIFIE UNE FIN DE LIG U SUIVANT ! 
NE 377 INY 
317 CMP ON 378 LDA {NUMPTR),Y PUIS ON PASSE AU HAUT DU N 
318 &NE CHRCHGO2 UMERO 
319 INC ONFLAG 379 CMP #250 QUI DOIT ETRE INF. 249256 
320 BNE CHRC#GO00 +255 = 63999 
321 CHRCHGO2 CMP #GOTO 380 BCS GOERR SI C'EST PLUS ALORS ERREUR 
322 BEQ GOFOUND GOTO: TRAITEMENT SPECIAL D 11 
E LA SUITE 381 CMP LINNUM+] SINON ON COMPARE AU HAUT R 
323 CMP #GOSUB ECHERCHE 
324 BEQ GOFOUND GOSUB EGALEMENT 382 BEQ CHANGE ET ON LE CHANGE SI C'EST T 
325 CMP #RUN LE RUN ({XXXXX) EST TRAITE ROUVE 
COMME UN THEN 383 
326 BEQ TESTNUM 384 NEXTIDO  EQU * ON PASSE AU NUMERO SUIVANT 
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DE LA TABLE 


385 CMP 65FF DES $FF SIGNALENT LA FIN D 
E LA TABLE 

386 BEQ GOERR ALORS LE NUMERO N'EST PAS 
TROUVE, ERR ! 

387 NEXTID  LDA NUMPTR AUTREMENT, ON VA 4 OCTETS 
PLUS LOIN 

388 CLC POUR TROUVER UN NOUVEAU NÜ 
MERO 

389 ADC #4 { 2 POUR L'ANCIEN + 2 POUR 
LE NOUVEAU } 

390 STA NUMPTR 

391 BCC NEXTEND PAS DE RETENUE POUR L'ADDI 
TION 

392 INC NUMPTR+1  SINON, EN TENIR COMPTE 

393 NEXTEND JMP IDENTIFY ET CA REPART POUR UN TOUR. 

394 

395 2 

396 + ERREUR, UN NUMERO DE LIGNE QUI 

397 * EST APPELE N'EXISTE PAS 

EL ES 

399 

400 GOERR LDY #>GOMSG AFFICHER UN IGNOBLE MESSAG 
E D'ERREUR 

401 LDA #<GOMSG 

402 JSR STROUT 

403 LDA LINNUM+1 ON PREND LE NUMERO DE LICN 
E RECHERCHE 

404 LOX LINNUM 

405 JSR LINPTR POUR L'AFFICHER 

406 JSR CROUT PUIS ON PASSE À LE LIGNE 

407 JSR BELL AVEC UN BIP AGACANT 

408 UMP WAOU 

409 

410 GOMSG HEX 80 

411 ASC "PAS DE LIGNE " 

412 HEX 00 

413 

CET 

415 * ICI S'EFFECTUE LE CHANGEMENT DE 

416 * NUMERO DE LIGNE 

417 Mme 

418 

419 CHANGE  INY ON POINTE DANS IA TABLE SU 
R LE NUMERO 

420 LDA (NUMPTR),Y TROUVE APRES GOTO/GOSUB DO 
NC ON 

421 STA MOH POURSUIT EN PRENANT LE NOU 
VEAU QUI EST 

422 INY ISSU DE LA RENUMEROTATION 
ET ON LE MET 

423 LDA (NUMPTR}, Y DANS FAC. 

424 STA HOHO 

425 

926 

427 * TRANSFORME LE NUMERO EN CHAINE 

92B 

429 

430 LDX 5590 CECI EST PRESQUE UN LINPTR 

{($ED24) 

431 SEC CAR CA COMMENCE PAREIL, 

432 JSR AXFAC 

433 JSR FOUT 

434 STY CHAINPTR51 MAIS CA N'AFFICHE PAS FAC 
! 

435 STA CHAINPTR 

436 LDY 40 

437 WRITENUM LDA (CHAINPTR}, YPRENDRE LA CHAINE REPRESEN 
TANT LE 

438 BEQ WRITEND NOUVEAU NUMERO, ET L'INCLU 
RE DANS LE 

439 JSR CHRPUT PROGRAMME DECRUNCHE APRES 
LE GOTO 

440 INY LE GOSUB OU ENCORE LE THEN 

441 BNE WRITENUM 

442 

443 WRITEND  JSR CHRGOT PUIS IL FAUT LIRE LE DERNI 
ER CARACTERE 

444 JSR CHRPUT LU APRES LE NOMBRE ET LE C 


445 


446 
447 
448 
449 
450 
451 
452 
453 
4549 


455 


456 


457 
458 
459 
460 
461 


462 


463 
464 
465 
466 
467 
468 


469 
470 
471 
472 
473 
474 
475 


476 
477 


478 


479 
480 


481 
482 


483 
484 
485 
486 
487 
488 


489 


490 


491 


492 
493 
494 
495 


496 
497 
498 
499 

500 


501 
502 


503 
504 


WRITEND1 


EOLO 


EOLI 





BEQ WRITENDI 
JMP CHRCHGO 


EQ0 * 
JMP COPYLIN 


CHREUT 
LINADR 


LINADR+1 
#0 


LINLEN 
{LINADR),Y 


EOLI 


(LINADR),Y 


(LINADR) ,Y 


{LINADRI, Y 
LINADR 
LINADR+1 
s0 


LINLEN 
ONF LAG 


LISTFLAG 


DELFLAG 
GUILLFIAG 


IFFLAG 
REMFIAG 


RTS 





OPIER 
SI C'EST UN 0 
GNE 

SINON, 


-> FIN DE LI 


SUITE DE LIGNE... 


END OF LINE CALCULE L'ADRE 
SSE DE LA 

LIGNE SUIVANTE EN ADDITION 
NANT LA 

LONGUEUR DE LA LIGNE ACTUE 
LLE ET SON 

ADRESSE DE DEBUT 


LE RESULTAT EST REMIS DANS 
LE PROGRAMME 

POUR CONSERVER SA COHERENC 
E 


CECI SERVIRA À LA LIGNE SU 
IVANTE 


ON VA RECOMMENCER UNE LIGN 
E DONC: 

LONGUEUR DE IA LIGNE = 0 
ON XXXX GOTO/GOSUB EST TER 
MINE 

LIST XXXXX,XXXXX EGACFMENT 
, AINSI QUE 

DEL XXXXX, XXXXX 

LA CHAINE DE CARACTERE ENT 
RE GUILLEMETS 

LE TEST AVEC IF 

LE REM OU IL NE FALLAIT RI 
EN CHANGER 


LL LL LL LL LL LL LL ELLES TT 7 ES 


CHRPUT 


TXTPTR2 


CHRPUTEND 


LINPUT 


EQU * 

CLC 

STA $4000 
INC LINLEN 
INC TXTPTR2+1 
BNE CHRPUTEND 
INC TXTPTR2+2 
TAX 


RTS 


LDA LINNUM 
JSR CHRPUT 
LDA LINNUM+1 


JSR CHRPUT 
RTS 


CETTE ROUTINE EFFECTUE LA 
TACHE OPPOSEE 

À CELLE DE CHRGET, 
R REMETTRE UN 
DCTET PRIS PAR CHRGET, 
S LE RESULTAT 

EN METTANT À JOUR LA LONGU 
EUR DE LA 

LIGNE. 


À SAVOI 


DAN 


CECI POUR CONSERVER LE REG 
ISTRE D'ETAT 


STOCKE LE NUMERO DE LA LIG 
NE ACTUELLE 

EN 2 OCTETS MIS EN LINNUM 
{$50.51) 
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505 517 RTS 
506 Lasns=-rommarsemmmtnsestenns ss 518 
507 519 LINTOTAB CLC 
508 LINTAB LDA NUMPTR PRENDRE LE NUMERO DE LIGNE 20 TABPTR STA TABLE 
DU PROGRAMME 521 INC TABPTR+1 IL FAUT BIEN-SUR FAIRE EVO 
509 JSR LINTOTAB ORIGINAL POUR LE METTRE DA LUER LE 
NS LA TABLE 522 BNE LNTTABEND POINTEUR (TABPTR) 
510 LDA NUMPTR+1 523 INC TABPTR+2 
511 JSR LINTOTAB 524 LNTTABEND RTS 
512 525 
513 LDA LINNUM ÊT DELFAIRE SUIVRE DUANOUV, 226 *==2===2Ee=eReRee nee 
EAU NUMERO 527 * TABLE DE CONVERSION DES LIGNES 
514 JSR LINTOTAB  QU'IMPLIQUE LA RENUMEROTAT 28 * COMMENCE ICI 
ION LORS DU 20] ennanenennennsannannasesn"s.e 
515 LDA LINNUM#1  DECRUNCHAGE 530 
516 JSR LINTOTAB 531 TABLE EQU * 
FF - - 
Récapitulation 
« , 89D0- 89 A5 FE DO 06 20 70 6B B8AD8- 30 90 CC C9 3A BO C8 90 
DECRUNCHER 89D8- 4C FF 89 A5 FF DO DO A5 8AE0- 05 E6 1E 20 B1 00 20 4A 
89E0- FC DO CC A5 FD DO C8 A9 BAE8- EC 20 52 E7 A9 8B 65 19 
Après avoir saisi ce code sous 89E8- 00 20 70 8B AS 06 20 A0 8AFO0- A9 DD 85 18 AO 00 BI 18 
moniteur, vous le sauvegarderez par 89F0- 8B A5 07 20 AO 8B E6 50 8AF8- C5 50 DO O0B C8 B1 18 C9 
BSAVE DECRUNCHER,A$8900, L$£20D 89F8- DO 02 E6 5i 4C A5 89 20 8B00- FA B0 16 C5 51 FO 38 C9 
8A00- B1 00 20 B1 00 FO 13 A5 8B08- FF F0 0E A5 18 18 69 04 
8900- AO £A A2 03 B5 BE 95 £B 8A08- 06 20 AO 8B A5 07 20 A0 8B10- 85 18 90 02 E6 19 4C F9 
8908- 94 BE CA 10 F7 E8 86 FF 8A10- 8B E6 50 DO 02 E6 51 4C 8B18- 8A AO 8B A9 30 20 3A DB 
8910- 86 FD 86 FC 86 1E 86 1F 8A18- 98 89 A9 00 20 A0 8B 20 8B20- A5 51 A6 50 20 24 ED 20 
8918- 86 CE 86 1D 86 50 86 51 8A20- AO 8B 20 A0 8B 4C 5F 8A 8B26- 62 FC 20 3A FF 4C 28 8A 
8920- A9 8B 68D D3 8B A9 DD 6D 8A28- A9 00 20 AO 8B 20 AO 8B 8B30- 8D DO C1 D3 AO C4 C5 A0 
8928- D2 8B A2 00 A9 DD 8D 3B 8A30- 20 AO 8B A5 08 85 B8 A5 8B38- CC C9 C7 CE C5 A0 00 C& 
8930- 89 A9 8B 8D 3C 89 A9 FF 8A38- 09 85 B9 A2 03 B5 EB 95 8B40- B1 18 85 9F C8 Bl 18 65 
8938- AO 00 99 DD 8B C8 DO FA 8A40- BE CA 10 F9 AD A2 8B 85 8B48- 9E A2 90 38 20 AO EB 20 
8940- EE 3C 89 E8 EO OA DO F2 8A48- AF 85 69 85 6B 85 6D AD 8B50- 34 ED 84 EF 85 EE AO 00 
8948- A5 BB 85 08 AS B9 85 09 8A50- A3 8B 85 BO 85 6A 85 6C 8B58- B1 EE FO 06 20 AO 8B C8 
8950- A5 BO C9 40 90 1F AO 89 8A58- 85 6E 68 68 4C DO 03 A2 8B60- DO F6 20 B7 00 20 AO 8B 
8958- A9 63 20 3A DB 20 3A FF 8A60- 00 86 1D 86 B8 E8 8E A2 8B68- F0 03 4C 96 8A 4C 76 8A 
8960- 4C 28 8A 8D D4 CS D8 D4 8A68- 8B 86 06 A5 68 8D A3 8B 8B70- 20 AO 8B A5 06 A6 07 A0 
8968- C5 AD D4 D2 CF DO A0 CC 8A70- 85 07 A9 40 85 B9 20 73 8B78- 00 18 65 1D 91 06 90 01 
8970- CF CE C7 8D 00 20 97 D6 8A78- 8B 20 B1 00 20 A0 8B 20 8B80- E8 8A C8 91 06 B1 06 AA 
8978- A4 67 8C A2 8B 84 06 A5 8A80- B1 00 FO A4 38 E9 38 20 8B88- 88 B1 06 85 06 86 07 AO 
8980- 68 18 69 38 8D A3 8B 85 8A86- AC 8B 20 B1 00 20 AO 8B 8B90- 00 84 1D 84 1E 84 1F 84 
8988- 07 20 B1 00 20 A0 8B 20 8A90- 20 B1l 00 20 A0 8B A6 1E 8B98- CE 84 FF 84 FD 84 FC 60 
8990- B1 00 18 69 38 20 AO 68B 8A98- EO 02 BO 45 A6 1F DO 34 8BAO- 18 8D 00 40 E6 1D EE A2 
8998- 20 B1 00 85 18 20 BI 00 8AAO- A6 CE DO 3F 20 B1 00 20 8BA8- 8B DO 03 EE A3 8B AA 60 
89A0- 85 19 20 BB 8B 20 B0O 8B 8AA8- A0 8B FO CA C9 B4 DO 04 8BBO- A5 50 20 A0 8B A5 51 20 
89A8- 20 B1 00 85 FE FO 22 A5 8ABO- E6 1E DO FO C9 AB FO 29 8BB8- A0 8B 60 A5 18 20 DO 8B 
89B0- FE 20 A0 8B C9 B2 DO 04 B8AB8- C9 BO FO 25 C9 AC FO 14 8BCO- A5 19 20 DO 8B A5 50 20 
89B8- A9 01 85 FC C9 AD DO 04 B8ACO- C9 BC DO 04 E6 1F DO CE 8BC8- DO 8B A5 51 20 DO 8B 60 
89C0- A9 01 85 FD C9 22 DO 06 &àC8- C9 85 DO 04 E6 CE DO C6 8BDO- 18 8D DD 8B EE D2 8B DO 
89C8- A5 FF 49 01 85 FF 4C AB 8ADO- C9 C4 DO C2 20 B1 00 C9 8BD8- 03 £E D3 8B 60 


MAX : 


Jacques Supernant 


e Monteur 


Ce moniteur autorise un contrôle de l'exécution des routines 


Un mode Trace et Pas à Pas très évolués et sélectifs sont complétés 
par un accès direct aux registres du 6502 (ou 65C02). 


La gestion des fenêtres d'écran simplifie le mode trace. 
Une routine permet la recherche de suites d'octets. 


Un mini-assembleur très souple Fait partie de Max. 


Une ligne de commande peut devenir une boucle avec l'ordre JUMP 





étenclu 


Apple J{+, //e, /ic 
en langage machine 


Disquette et 
documentation : 
150,00 F TTC 
franco . Bon de 
commande 
page7d. 
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Fran À0eNZ 


e problème : Vous 
disposez d'une routine 
binaire conçue pour 
l'Apple //c ou le nouvel 
Apple //e. Pour l'adapter à votre 
machine, dépourvu du 65C02, le 
listing désassemblé est indis- 
pensable. Comment l'obtenir ? 


Jusqu'à présent, nous ne 
disposions que du désassemblage 
manuel à l'aide de la liste des 
codes, solution lente et source de 
nombreuses erreurs ; un nouveau 
désassembleur devenait donc 
indispensable. 


Le programme ci-dessous vous 
permettra de franchir sans 
difficulté la première partie de 
votre travail : on copie en RAM le 
moniteur et on le modifie pour 
qu'il s'ouvre aux STZ, TRB et 
autres INA. Le fichier CODEC’ 


n'est qu'un exemple. . 





Source 
‘DESASM/RAM.S' 


Assembleur Big Mac 


ÉÉELLEESEEESILIZIIIIL IE II III TE 227) 
* 
#* APPLE II ** DESASSEMBLEUR 65C02 


* 


* Version RAM. 

* 

#* par Y.KOENIG 

* le 11/03/85 

10 * 

11 trtdttétttédérttttéodénttittisétth 
129% 


0 oo Ur me Li A5 4 


13 # Ce Programme cople ie MONITEUR 
14 * en RAM et le rod!fle en 

15 * s'inspirant du MONITEUR //c 

16 * afin de permettre de 

17 * désassenbler les codes du 65C02 
18 * 

19 * Ctri Y bascule d'un moniteur 

20 * à l'autre. 

21 * Le désassemblaGe se fait alors 
22 * avec la syntaxe habituelle. 

23 * 

24 tédddritttérriééétédétitédéérrrs 
25 

26 ORG $803 

27 

28 LOCO " $0 al 

29 LENGTH = $2F 

30 A1L = $3C 63D 


FMT1 
FIÆEV 
NXTEYT 
RDSPI 
DISKID 
HEADR 
NNERCP 
PRBYTE 
MOVE 
KRITE 


LOO£ 2 


LO@3 


LOOP4 


LOOPS 


63F 
643 


$3E 
$22 
$45 


$3F8 


$7F8 


$F962 
$FA9B 
$FAC? 
$SFAES# 
$SFAFF 
$SFCC9 
HEADR +1 
$EPDA 
$FE2C 
$FECD 


BIT $Cco081 
BIT $C081 
en RAM 
LDA 
STA 
STA 
LDA 
STA 
STA 
LDY 
STY 

STY A4L 
JSR MOVE copie le mo 
niteur et applesoft en RAN 


pour écrire 


#<$D000 
AL 


LDA 
STA 
e 
STA 
LDA 
STA 
STA 


#$5c9 
$SFFE3 annule Writ 
$SFFFS annule Read 
J$22 

$IFDC 

SFFDE 


LDA 
STA 
LDA 
STA 


4589 
$r919 
9583 
$F91Fr 


IDX #3 

LDA 4$EA 
STA $F895,X 
DEX 
BP£L 


"NOP" 


LOOP1 dépose 4 NO 


#$FC 
$F8A6 


INFSAF-NFAF4-1 
NFAF4, X 
$SFAF4, X 


LOOP2 
JNFAP4-NFAB8-1 
NFAB6,X 

$SFAB6, X 

LOOP3 
#NNRITE-NFMTI 
NEMT1-1,X 
FMT1-1,X 


BNE LOOP4 
uvelle table 


copie la no 


LDX 
LDA 
STA 
BEX 


JNHEADR-NWRITE-1 
NANRITE, x 
ARITE, X 


106 


107 
108 
109 
110 
111 
112 


113 
114 
125 
116 
117 
118 


119 
120 


121 
122 
123 
124 
125 


128 
127 
128 
129 
130 
131 


1322 
133 


134 


135 


136 


137 
138 


139 


140 
14: 
142 
143 
144 
145 
146 


147 


148 


149 


150 
151 
152 


153 


154 


155 


156 
157 
158 
159 
160 
161 
162 
163 
164 
165 





LOOP6 


LooP7 


L0CE 8 


NENT1 


FMT2 





Un désassembleur 65Co2 


BPL  LOGPS 
TCHE dans ARITE 


copie le PA 


LDX #NFAB6-NHEAOR-1 

LDA NHEADR, X 

STA HEADR, x 

DEX 

BPL LOOPS copie la ta 


ble dans HEADR 


LDX 
LDA 
STA 
DEX 
BPL LOOP7 
tructions 


JN3C2-NF8AF-1 
NEB8AE, X 
$F8AF, X 


copie 2 ins 


BIT $C082 
RAM 


protège la 


LDA 4<$3C2 

STA CITRLYV+I 
LOA d>$3C2 

STA CTRLYV+2 

ctril Y 

LDX AJFIN-W3C2-1 
LDA N3C2,X 
$3C2,Xx 


Initialise 


BPL LOOP8 


JMP $3D0 
! 


:C'est fini 


HEX OF22FF33CB62FF730322FF 
33CB66FF77 

HEX O0F20FF33CB60FF700F22F6 
39CB66FF7D 

HEX O0B22FF33CBA6FF731122FF 
33CBA6E'F87 

HEX 0122FF33C860FF700122FF 
33CB60FF70 

HEX 24316578 

HEX 00218182594D9192864A85 
9D495A 


#+ ATTENTION, astuce Apple, CHAR2 com 


CHAR2 


CHAR1 


MNEML 


MNEMR 


plète FMT2 
ASC: Tr" 

8RK 
ASC 
BRK 
ASC 


rXSS" 
TIC 


HEX  1C8A1C235D881BA19D8A1D 
239D8B1DA1 
REX 1C2919AE69A81923245318 
23245319A1 
HEX ADIASBSBHAS692424AEAE A8 
AD298A7C8B 
HEX  159C6D9CA5692953841334 
11A56923A0 


HEX D8625A48266294885444C8 
546844E 894 

HEX C484088474B4296E74F4CC 
4A72F2 

HEX  A98AU6AAA2A27474747244 
68B232B272 

HEX 22721A1A2626727288C8C4 
CA26484444 

HEX  A2C8 


* À recopier en WRITE 


NHWRITE 
PATCHE 


RTS 
AND 43 
STA LENGTH 


DECCONEN TYA 


DECODO 


422 
NNEWOP ,*X 


LD X 
CMP 
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166 BEC DECODI 
167 DEX 

168 BPL DECODO 
169 RTS 

170 DECODI LDA 

171 LDY #0 

172 RTS 

173 

174 NEWFAF4 LDA ACC+5,X 
175 JSR PRBYTE 
176 INX 

2747. BMI TORDSPI 
178 RTS 

179 TORDSP1 JHP RDSPI 


181 * À recopier en HEADR 


182 NREADR RTS 

183 NEWOP HEX 12 
184 HEX 14 
195 HEX 1A 
186 HEX 1C 
187 HEX 32 
188 HEX 34 
189 HEX 3A 
130 HEX 3C 
191 HEX 52 
192 HEX SA 
193 HEX 64 
194 HEX 72 
195 HEX 74 
196 HEX 7AÀ 
197. HEX 7C 
198 HEX 89 
1ss HEX 92 
206 HEX 9C 


NNEWOP+NENOP 0-NEWSE , X 


ORA (2p) 
TRB 2p 


TRE abs 
AND 2p 
BIT 2p 


BIT abs,X 


(2p} 


ST2 zp 
ADC zp 
STZ 2p,X 


JMP abs{X) 
BIT inm 
STA ({2p} 
STZ abs 


201 REX STZ abs,X 

202 REX B2 L8A f(z2p} 

203 REX D2 CME (zp) 

204 HEX F2 SC (2p) 

205 REX FC INVALIDE -> 
Nœ 

206 NEWOPO HEX 38 

207 HEX FB 

208 HEX 37 

209 HEX FEB 

210 HEX 33 

211 HEX 21 

212 HEX 36 

213 HEX 21 

214 HEX 3A 

215 HEX F8 

216 HEX FA 

217 HEX 3B 

218 HEX FA 

219 HEX F9 

220 HEX 22 

221 HEX 21 

222 HEX 3C 

223 HEX FA 

224 HEX FA 

225 HEX 3D 

226 HEX 3E 

227 HEX 3F 

228 HEX FC 

229 

230 NENSLOOP DEC LOCO+1 

231 LDA LOC0+] 

232 CMP  #$C0 

233 BÈQ TOFIXxSsEV 

234 STA MSLOT 





235 JMP NXTBYT 

236 TOFIXSEV UMP FIXSEV 

237 

238 x À recopier en $FAB6 

239 NFA86 BNE FABE 

240 HEX 8A8BASACO0 ;:Fin table 
HNEML 

241 HEX EA 

242 FABE STX LOC0 

243 STA LOCOs#1 

244 NSLOOP LDY #7 

245 JMP  HEADRYNEWSLOOP-NREADR 

246 NNXTEYT LDA (LOC0),Y 

247 OP DISKID-I,X* 

248 BNE NSLOOP 

249 

250 * À recopier en S$SFAF4 

251 NFAF4 JMP  WRITE*NEWTAF#-NHRITE 

252 HEX DA 

253 HEX 747476C600 ;Fin de tab 
le MNEMR 

254 

255 NF8AF JSR  WRITE+PATCHE-NWRITE 

256 BE *+26 

257 

258 * À recopier en $3c2 

259 N3C2 LDA $3c8 

260 EOR  #$81 

261 CRA #$80 

262 STA $3CD 

263 BIT $C081 

264 RATS 

265 FIN . * 

266 LST OFF 








Comment faire ? 


Pour désassembler les codes du 65C02, il suffit de faire : 


+ BRUN DESASM/RAM ; 
° charger un fichier binaire comprenant les nouvelles instructions, le 


fichier ‘CODEC par exemple ; 


+ passer en moniteur (CALL -15]). En utilisant alors la commande L 
du moniteur, vous obtiendriez de nombreux ‘??? ;: 

+ _ faire CTRL Y <RETURN> ; 

* utiliser alors la commande L (avec l'exemple CODEC, faire 300L). 


Vous obtenez : 
0300- 
0301- 
0303- 
0304- 
0305- 
0306- 
0307- 
0308- 
030B- 
030E-- 
0310- 
0312- 
0315- 
0317- 
031A- 
031C- 
031E- 
0321- 
0324- 
0326- 


DA 
80 
1A 


1C 
14 


03 


03 03 
04 04 
06 
07 
02 02 
09 
09 09 
04 
08 
07 07 
06 06 
07 
05 


50306 


50303 
$0404,X 
506 
$07,X 
$0202 
$09 
50909 
$04 
#9508 
(50707, X} 
$0606,X 
(507) 
($05) 


+ CTRL Ÿ vous permet de passer du désassembleur original au 
désassembleur enrichi. 


Récapitulation 
‘DESASWRAM' 


Après avoir salsi ce code sous 
moniteur, VOUS le sauvegarderez par 
BSAVE DESASIWR AMA$803,L$ 216 


0803- 2C 81 CO 2C 81 

0808- CO A9 FF 85 3E 85 3F A9 
0810- DO 85 3D 85 43 AO 00 84 
0818- 3C 84 42 20 2C FE A9 C9 
0820- 8D F3 FF 8D F5 FF A9 B2 
0828- 85 DC FF 8D DE FF A9 B9 
0830- 8D 19 F9 A9 B3 6D iF F9 
0838- A2 03 A9 EA 9D 95 F8 CA 
0840- 10 FA A9 FC 8D A6 F8 A2 
0848- 08 BD FD 09 9D F4 FA CA 
0850- 10 F7 A2 17 BD E5 09 9D 
0858- B6 FA CA 10 F7 A2 DE BD 
0860- A3 08 9D 61 F9 CA DO F7 
0868- A2 22 BD 82 09 9D CD FE 
0870- CA 10 F7 A2 3F BD A5 09 
0878- 9D C9 FC CA 10 F7 A2 04 
0880- BD 06 OA 9D AF F8 CA 10 
0888- F7 2C 82 CO A9 C2 8D F9 
0890- 03 A9 03 8D FA 03 A2 OD 
0898- BD 0B OA 9D C2 03 CA 10 
08A0- F7 4C DO 03 OF 22 FF 33 
OBAB= CB 62 ER 73 08 22 FF 33 
08B0- CB 66 FF 77 OF 20 FF 33 
08B8- CB 60 FF 70 OF 22 FF 39 
OB8CO=NCE) 66 EF 7D OB 22 FF 33 
08C8- CB A6 FF 73 11 22 FF 33 
08D0- CB A6 FF 87 01 22 FF 33 
08»8- CB 60 FF 70 01 22 FF 33 
O8E0- CB 60 FF 70 24 31 65 768 
08E8- 00 21 81 82 59 4D 91 52 
08F0- 86 4A 85 9D 49 SA D9 00 
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08F8- 
0900- 
0908- 
0910- 
0918- 
0920- 
0928- 
0930- 
0938- 
0940- 
0948- 
0950- 
0958- 
0960- 
0968- 
0970- 
0978- 


D8 
A8 
1B 
10 
19 
49 
24 
7C 
29 
23 
94 
E8 
28 
A4 
74 
22 
88 


A4 00 
1C 68A 
9D 68A 
1C 29 
24 53 
AD 1A 
AE AE 
15 9€ 
64 13 
D8 62 
54 44 
C4 B4 
74 Fg 
06 AA 
944 68 
IA 1A 
C4 CA 


AC A9 AC A3 


1C 
10 
29 


SD 
9D 
69 
24 
A5 
29 
A5 
AS 
26 
68 
74 
72 
74 
B2 
72 
44 


8B 


0980- A2 
0988- A2 
0990- 10 
0998- 60 
09A0- 01 
09A8- 1A 
09B0O- 64 
09B8- 9E 
09C0- FB 
09C8- 3B 
09D0- 3D 
09D8- C9 
09E0- C7 
09E8- 8B 
09F0- 01 
09F8- D9 
0A00- DA 


Basicium.… 
le Basic 
enr1ich1 


ce 
16 
F8 
BS 
60 
1C 
72 
B2 
3:9 
FA 
3E 
Co 
FA 
A5 
A0 
FE 
74 


60 
DD 
60 
4A 
4c 
32 
79 
D2 
21 
F9 
Fi 
FO 
4c 
AC 
07 
FA 
74 


Cet utilitaire vous permet de : 


l'écran 40 ou 80 colonnes 


Nettoyer mémoire très 
rapidement par "JF". 
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Imprimer 


par "]H"!. 


Gérer des messages, la 
réponse étant contrôlée. 


stratio 


lation : 150,00 TTC fr 


29 03 
CA FC 
BD El 
20 DA 
E4 FA 
34 3A 
7A 7C 
er 
36 21 
22 21 
FC C6 
06 8D 
9B FA 
00 EA 
qc F8 
DO F4 
76 C6 


85 2F 98 0A08- FE FO 16 AD CD 03 49 61 
FO 64 CA 0A10- 09 80 8D CD 03 2C 81 CO 
FC AO 00 0A18- 60 

e e 
+.  Hrichier exemple 
3C 52 5A ‘CODEC’ 
89 92 9c 
38 FB 37 Après avoir saisi ce code sous 
3A F6 FA moniteur, sauvegardez-le par 
3C FA FA BSAVE CODEC,A$300.L$29 
01 A5 01 
F8 07 4C 0300- DA 60 03 1A 3A 5A FA 7A 
DO 06 8A 0308- 9C 03 03 9E 04 04 64 06 
86 00 85 0310- 74 O7 1C 02 02 14 09 OC 
FC B1 00 0318- 09 09 04 04 89 08 7C 07 
4C E4 FE 0320- 07 3C 06 06 12 07 92 05 
00 20 CE 0328- 00 


Gérard Michel 
Apple Jf+, //e (6502) 


Gérer des masques 40 ou 80 
colonnes. Ces écrans, définis lors 
de la programmation, s'affichent 

par la simple commande ”] A”. 


Saisir toutes les variables d'un 
écran en une seule commande “][" 
en contrôlant le type et la 

longueur. 


Mais aussi, ne saisir que l'une des 
variables affectées à un écran, les 
afficher, les effacer, etc... 


n dans le Pom's 13) 
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ee] 
= | 
= 
2 
= 
S 
3 
4 
œ 
< 
È 
KL) 
8 
D 
2 
2 
3 
& 
z 
re 
Ë 
à 
Ë 
2 
= 
5 
2 
8 
A 
8 
5 


CL € HBD) 


Tant qu'à faire 5 choses à la fois 


Que ceux qui 
aiment travailler en 
faisant deux ou trois 
choses à la fois ne 
changent rien. au 
contraire, avec 
Apple et jazz ils 
peuvent faire mieux. 

Jazz de Lotus, c'est un programme 
créé pour Macintosh 512 Ko, équipé d'un 
lecteur externe qui permet de devenir un 
parfait jongleur Ka essionnel. 

Cing programmes en concert, 
c'est-à-dire un tableur, un grapheur, un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication réunis en un seul 
programme. Ou comment être à cinq 
sur la même souris. 











Pouvoir gérer cinq applications à 
partir d'un seul écran. modifier une 
donnée dans une application et qu'elle 
se modifie automatiquement dans les 
autres. pouvoir sauter d'un graphe à un 
traitement de texte sans attendre les 
secondes qui durent une éternité pour 
changer de programme. c'est bien. 

Quand on s aperçoit que ces cinq 
programmes sont individuellement 
excellents, c'est une révolution. 

Jazz, c'est l'outil idéal d’un directeur 
de service. 

Prenons un exemple qui exige beaucoup 
de souplesse. de rapidité. et de doigté, la 
direction des services secrets : 

- Avec un tableur capable d'afficher 
8192 lignes sur 256 colonnes, la gestion 
devient beaucoup plus facile. Si un fait 








nouveau apparaît, rien n'est plus facile 
que d'étudier deux ou trois hypothèses 
afin de ne pas être pris de court. 

- Quand un projet est fin prêt, il faut 
bien le présenter à ses supérieurs et 
parfois même beauceup plus haut; un 
grapheur permet de transformer toutes 
les données numériques obscures en 
graphiques lumineux. 





- Si le projet est accepté. un traitement 
de texte est nécessaire pour que chaque 
agent concerné soit au courant dans ses 
moindres détails. Evidemment quand 
on travaille dans un tel service il vaut 
mieux pour Macintosh pouvoir copier, 
effacer, modifier, ou coller des dessins.à 
chaque instant. 





Apple Computer France. Avenue de l'Océanie 


autant les faire en même temps. 


é Fichier Edition MATT2GR craphe Trace Axe Carac. Style 
[@]{| Agrandir 
+ onnnenemgeetens | SPACE 


Tabieau des references 
UENTES =. 
\ Marche Choco AT 




























| REPARTITION Ventes 
Birecteurs Hentes - Binéfices 


s d'Apple Computer, Inc. 






ler trim 2émetrim 3eme trim 





Jazz. est une marque déposée de Lotus Development Corporation. 


Apple, le Logo Apple sont les emarques déposé 





Feuille de travail Jazz. à , c ss à 
; J Grâce à son gestionnaire de fichier, Jazz 


fait la fusion automatique entre un 
mémo et une liste de correspondants à 
sélectionner selon un critère spécial. 

Et avec un modem full duplex 1260 bauds 
en un instant votre correspondant 
reçoit toutes les informations précises à 
l'autre bout du monde. 

Avec jazz l'entreprise est rentable, 
rondement menée, précise et discrète, 
inutile d'avoir 35 collaborateurs pour 
rédiger le projet. 

Jazz C'est cinq pro ammes liés 
entre eux si parfaitement que l'agent 
double est enfin enterré, place à l'agent 
quintuple. 


| # 
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C'est à l'imagination du 
mathématicien Conway que nous 
devons le Jeu de la Vie. Il ne 
s'agit d'ailleurs pas réellement 
d'un jeu puisqu'une fois la 
position de départ définie, 
l'utilisateur ne peut qu'assister à 
l'évolution de la ‘population, 
évolution qui ne laisse aucune 
place au hasard. 


L'hypothèse 


Conway a conçu ce jeu sur les 
bases suivantes : 

La population est constituée de 
cellules qui seront représentées 
par un point à l'écran. 





Chaque cellule peut a voir jusqu'à 
8 voisines et cet entourage en 
détermine la survie : 

+ Oou 1 cellule adjacente : mort 
parisolement ; 

+ 2 cellules : survie ; 

° 3 cellules adjacentes à une 
position vide : naissance ; 

* plus de 4 cellules : mort par 
étouffement. 


La position définie plus haut se 


Fichier ‘Vie.Job’ 


(Exec) 

Asm Vie Asm Exec Edt 
Link Vie.Link Exec Edt 
RMaker Ve.R Finder Edit 


eu de la Vie 


présenterait ainsi à l'étape 
suivante : 





Le programme 


Le présent programme, écrit en 
assembleur, respecte toutes les 
conventions du Macintosh, 
menus, fenêtres, gestion des 
accessoires... 

La cellule de base est un point 
écran, ce qui représente 164864 
position à gérer. Il est possible 
d'agrandir une zone de 46 * 64 
points, de la sau vegarder, de la 
recharger. 


Sur la disquette d'accompa- 
gnement Mac 23, vous trouverez 
des positions de départ 
particulières prêtes à charger, 
positions qui génèrent toujours 
des naissances par exemple. 

La surface d'évolution de la 
population est ‘torique” : la partie 
droite de l'écran touche la partie 
gauche. Il en va de même pour le 
haut et le bas de l'écran ; ainsion 
ne touche jamais un bord de la 
surface. 


A l'aide des différentes options 


1/ : , 
Source ‘Vie.Asm 
INCLUDE Ve Asm 
INCLUDE Via Asm 
INCLUDE Vie3 Asm 
INCLUDE Vied Asm 
END 


Dominique Bernarai 


des menus vous trouverez 
facilement comment définir une 
position de départ, aléatoire ou 
non, observer les évolutions en 
pas à pas ou en continu, les 
com pter, les interrompre etc. 


Un antécédent 


I est indispensable de signaler ici 
le programme de Bill Atkinson. 
La cellule de base est une petite 
bille inscrite dans un carré de 
8*8 points. Le nombre de 
cellule à gérer est évidemment 
moindre mais le résultat est alors 
d'une rapidité stupéfiante. 


N.D.L.R. : le programme 
tourne indifféremment sur un Mac 
S12Ko ou un Mac 128Ko. En 
revanche, le chargement et 
l'édition des sources sont 
problèmatiques sur un 128K°o ; la 
disquette d'accompagnement Mac 
23 contient donc les fichiers 
sources en deux versions : 


+ celles dont les noms débutent 
par ‘Vie’, listées page 
suivantes et destinées aux 
Macs S12Ko ; 

+ celles dont les noms débutent 
par ‘Vie128.', sauvegardées 
sans remarques et destinées, 
bien sûr , aux Macs 128K 0. 


G 


Fichier ‘Vie.Link’ 
] 


Vie 
Output Vie.Code 
Mype TEMP' 


$ 


Nos 
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Source ‘Vie1.Asm' 


; Le tableau prrojpal occupe it l'écran sauf ja barre 
; de menu. fl ast formé de 322 bgnes de 51 2 points. 
; En fai i est tonique , c'est à dire que œ Qui son Par & 
: gauche rsapparai à drofte etc. On peut aussi 
agadir un rectangle 46 x 64 extrait de ce eboa 
; (0886 résoktion'}, mas le cale se lait fouuus sir 
‘le tableau complet. C'est œuermer dans le mode 
: basse deohstion QUE l'on paut changer l'état du jeu 
en quart sur les pixels’ pour les inverser. La 
00 Édur® es! ls même que sous la loupe de 
;MaPañ || y a quatre manwe: le mew Porme, 
: menu Fichier, ls manu Edition et ke menu Contrôle. 
; Le menu Porumne presente les ancessoses de 
; bureauet C'est 2 Ve... Les ammssoves de bureau 
; de vraient fous fonctionner, et le jeu peut tourner 
: avec lfofoge pour chronométer, par exemple. 
: Toutefos, comme on ne peut ps8 activer let ablesu 
; principal lacosssoire est normalement actif et 
:intercepte Les équivalents clavier (INorloge, par 
; exemple, les rejette avec un bip désanprobateur. Le 
; seul moyen de désé leconner les sacess08 es sans 
; les fermarest d'activerla fenêtre du compteur . Le 
; menu Fichier permel de repartir à réro (nouveau), de 
: lire ou d'écrire sur disque le contenu du petit 
‘ rectangle et de quitter je programme. Le menu 
, Edition ser aux accmsores de bureau et pour éditer 
: le rectangle, copier et coller échangent son contenu 
; avec celui duntemnpon, effacer agit Unguvement sur 
; ce redangée contrairement à l'add rouveau du 
; menu Fichier. Le menu Cort ôle permet de dénarrer 
; etd'arréter, ou de cæawer une seule ou phæieurs 
; gnerabons, de changer laréaoh£ ion et de faire 
: æpanlre le compteur. Ce dernier aficte en 
; preméëre bgne le numéro de ls génération affichée et 
; on deuxième ligne le nombre de cœlhies vivantes. 
; Enfin, on peut remplir le tabloas de points 
; alesfoement noës où bancs, le prob ét pour 


Rogiatras ti 
stensheg EQU © ; nombre de générations 
: et flags cd 
aenBi EU :6 ; on court 7 
œuntBit EQU 17 ; R ONE et vebte ? 
reeBà EQU 19 ; Hauts résohstion ? 


; La couleur du pixel à 
;mettre est connue ? 
; Dès 19at20 x Î <m> 


; Ces! noir 
quitBit EQU 21 ; Outer aété 
; sélectionné 7 
Modfÿfeg  EQU D ; état du bouton, des 
; touches péoales etc. 
MenuReg  EOU © : 10 du menu choisl 
MenFeg  EOU D6 ID de lañich dois 
ApplHReg EOU D7 : hands vers ls menu 
Window! EQU A3 ; A3poñnte vers la 
: fenétre princpale 
wndowe EQU 4 : A2 ponte vers & 
fenétre du œmpteuw 
, — Équivalences 
AppleMenu  EQU 1 
Aboutliem EQU 1 
RaMenu EQ 2 
Newlæm  EOU 1 
Chen m EOU 2 
Snelom EOU 3 
Qatwm  EOU 5 
Edthfenu EQU 3 
œpyhlent EQU 4 
pasietiem EQU 5 
Chaflam EQU 6 
CtMenu EQU 4 
Galem EQU 1: 
Sopliem EOU 2 
Stevitem EOU 3 
NGsnybn EOU 4 
Lotsem EQ 6 
Héam EQ 7 


Probltem EQU 11 
Alealem EQU 12 
AboutAler EQU 1 : ressources ALAT et 
; DLOG 
GenDisiog  EQU 2 
ProbaDidog EQU 3 
OKilem EQU : ; Rem #1 dans a DITL 
edtText EOU 4 ; fair 64 
prompt EQ ; STR ræsource #1 
: Dimensions du tableau : 
vMex EQU 321  ;nbos bgnæ.1 
maxWord EQU 109903 : nb de mots- 1 
maxLong EQU 5151 ;nbdemotsbbngs- 1 
NoGrowDoæroc  EOU 4 
Plein DBox EQ 2 
CmroKey EQ 8 
DWindlen EQU SA 
WindowS&æe EQU $C 
numToSring EQU 0 
stringToNum EQU  :ï 
st PuFite EQU  : 
s{GelFies EQ 2 
Trp _AddPt SAB7E 
.Tæ _AddResMenu £A94D 
Tr _Alen $4985 
.Trap _BeginUpDate SA922 
-Trap _BCr SABSF 
.Træ _BitSet SASE 
Trap __BK7st SAB6D 
Tr _Chæ SA001 
Tiæ __CireDSbg SA982 
Tr _ Copyeès SASEC 
Trap _Ceats £4008 
Træp _Disabioitom $A93A 
Trap _0aGan $A905 
-Tæ __GeyWirdbw $AS25 
-Trap _DrawenuBer $SA937 
-Træ _Detr9 SAG64 
Trep __Enabieltom SA939 
Tr _EndUpdais SA923 
Tr _Ereñ"+ a SASA3 
Trap _ExàToSheï SAWA4 
Trap _FindWindow SAC 
Trap __PlshEvents $403 
Trap FkshVol $A013 
Trap _FrameRed SASA!' 
Trap _GstCursor SAS 89 
Trep _GsDhem $A98D 
Trap _Ge!hem $A946 
Trap _GetText $A990 
Trap __GeiMouse $A972 
.Trap Ge $A97C 
Trap __GetNextEvent $A970 
Trap __GetRMenu SA98F 
-Taæp _GetShing $A9BA 
.Trp __GobaToLocal $AS71 
Trap _HireMenu $A938 
Trap _AnétCiesor $SA950 
Trap _InkDidogs $A97B 
Trap _IMomæ SASE 
Trap _häGa SAS6E 
Tr _btinæ $A930 
rap Witoes £A912 
Trap _trær4nu SAS35 
Trap _InverRlect SABA4 
Trap _MenG@y $SAS3E 
.Trap _MenuSeërst SASSD 
.Trap __ModalDiaiog $A991 
.Trep MoveTo S$AB09 
Tr Now SANTE 
TP _Nonfgn SABDA 
TD _NewWindow $A913 
Tr _Ofe- br $ABA8 
T'æ _Open S$AD00 
Tæ __CperDaskAcc $49B6 
Tr _Paf9 $SA9EA 
Tr _Pak7 $SA9IEE 
Tr __Penh@rds SA89C 
Trap _PtinRect SABAD 
Trap _Random $AS61 
Tr _Pead £A002 
Trap _ReaRgn $A80F 
Trap _SelkctWindow SA91F 
Trap SendBehind SA921 





Tr SetCursor $A851 

Træ SetPort SA873 | _) | 
Tr _SubPt SA87F 
RE  — 
D E è 

Trap _SystemT ask ons. 
Træ _TEnè SA9CC 7 
TR _TeaxtFont $A887 

Trap _ Treck@Aey $A9IE 

Trap _WaëMouseUp $A977 

Trap _Wrie $A003 


MACRO _StingToNum 
PañCS ketringToNum,_Pack7 
ENDM 


.MACRAO  _NumnToString 
_PaoiCæ #numToString._ Peck7 
“ENOM 


MACRO _SFGaFie 
| PækCal #SFGetFile_Pack3 
ENDM 


MACRO __SFPUFie 
| PaCat #SFPutFile,_Pack3 
ENDM 


—--- Programme prinoipal —— 








BSR SetupBoard ; Prépare le jeu 
8SR CreateWindows 
CRE statusReg : fags et 
; compteur à zéro 
EveniLoop 
_SystemTask 
BTST #runBit.statusPReg  ; Courons-nous ? 
BEQS @1 ; Non, pas de 
:œu 
BSA Cabas : nouveêe 
: généæion 
BSR Affiche ; affa 
BSR AffCompte ;ahe kb 
; nouveau 
; compte 
@' 
üR 415) 
MOVE #$007F,{SP) : 7 premiss 
: événements 
PEA EventRecord 
_GetNextEvent :Événement 
; SUV 
TST (S} : Bxiste-ti17 
BEQS EventLoop :RAS.. On 
: boucle 
BSR HandieEvent 
BTST #quitBit,statusReg 
BEQS  EventLoop 
AIS se finta la 
; commedia 
: IntManagers - 
IntManagers ; Suwntrd 
PEA (A5) 
_InitGrat 
_inltFonte 
MOVEL  4$0000FFFF.,D0 
_FlushEvente 
_InNWindows 
_{nitMenue 
CEA 1) 
_InMialoge 
_TElnkt 
_InHCursor 
AIS 
a — — — QU  —— © — — 
SetupMenu 
CLAL y) ; espaces pour 
; handle 


MOVE sApoleMenu,-(SP} 
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_GetAMenu 


MOVEL  (SP),AppleHReg 
| MOVEL  (SP),45P) : Copie pour 
: AddResMenu 


GA 


= 4SP) 
Es ER _insertMenu 
MOVEL  #WDAVR'4SP) ; Accessoires de 
: bureau 


@) 
_AddResMenu 
Fichier: 
CEAL 15) 
MOVE #FdeMenu, {SP} 
_GetRMenu 
CA {SP 
_1nsertMe nu 
Edvon: 
CEAL 1) 
MOVE éFditMenu,-(SP) 
_GetRMenu 
GR 4#) 
_fneertMenu 
Controk: 
CLRL 4) 
MOVE  #CtlMenu{SP) 
_GetRMenu 
LEA CUHandie AO 
MOVEL  (SP){A0} ; mettons la 
; handle de côté 
CLR F) 
_tneertMenu 
_DrawMenuBar 
ARTS 
Pr SetpBO ANT 


ATTENTION :Nowfir Wine des regetres pour les 

, aguments : 

tale du bloc à réserver en ertée dans D0. en 

; sorte, le poiteur est dans A0, eo si DO ambert 

«un code d'erreur non nul 322 * 64 pour le tableau, 
. , 5*516 pour les lignes, 922 pour & tableau de 

« bookens indiquant les r angées non vides enfin 2 

octets de ‘bourrage' --> 23512 octeke en tout 

MOVEL  #23512,00 


_NewPtr ; Demandore de 
; la placs 

TST D0 ; Erreur ? 

BEQS @1 ;: Non, loul va 
: bien 

_Ex{tToShelt : Fate de 
; TEUL... 

@f 

LEA Board A1 Sons ls 
: diflérents 

MOVEL  ADÇAÏ) ;Poineurs 

ADDA #20608,A0 

LEA moins? At 

MOVEL AD{AÏ) 

ADDA #516,A0 

LEA moins, A1 

MOVEL  AD{AI) 

ADDA #516, A0 

LEA pas0, A1 

MOVEL  AD{A!) 

ADOA #516,A0 

LEA p881,A1 

MOVEL  AD(A!) 

ADOA #516, A0 

LEA pas? A1 

MOVEL  AO{Af) 

ADEA #516,A0 

LEA changed. A1 

MOVEL AC{A1) 

MOVEL  Boad,A0 ; Mettons lout à 
; 26r0 

MOVE #5877,00 

ce 

CLAL L'y 

DBRA D0@2 

MOVEL  Bozd AD : Au départ, un 
 r-DPAOMANO 

ADOA #10271,A0 :1@°64+31 

MOVE.B  #3{A0) : au mieu de 
«fécan 

MOVEB  #664A0) 

MOVEB  #2,126(A0) 

MOVE.L  danged A0 ; Ces trois lignes 

ST 160(A0} ; sont non-vides 

ST 161(A0) 

ST 162(A0) 

ARTS 


CreateWindoss 
Comptas: 
3 FUNCTION Ne-Wdbw (MS: Pr; 
; boundsRec: Rect 
; dte:Str255; visbla:BOOLE AN ;prociD: 


; NTEGER: 
; behind: WindowFu; goAwayF'ag: BOOLEAN; 


; relCon: Longint} 
3: WdowPr; 
CLRL *#) ; Place pour le 
; résultat 
PEA WStorage2(A5) 
PEA counterRect 
PEA La 
MOVEB  #1,4SP) : bb 
MOVE HoGowDoPrx;\SP) 
MOVEL  #1,45P) + Au sommet 
MOVEB  #1,{5SP) : On veut powow 
Nue 
CLAL 4) : RefCon = 0, 
: Pourquoi pas ? 
_NewWindow : Dæsinors & 
;fenéte 
MOVEL (SP). window2 ; Sauvons son 
‘adresse 
_SetPort : poirdeur sur là 
CLR +®) ; SysFort = 
; Chicago 
_Tex1Foni 





Nouveau 


LEE LI € 1 









si: , 
Source ‘Vie2.Asm 
Tableau: 

CLRL 45) 

PEA WSwrgei(AS) 

PEA dore a ;L'écan moins 
;es mens 

CIRL {4 ; Pae de titre 

MOVEB  #1,4SP) ; 

MOVE  WlarOBox-(SP)  ; Jeleun 
sedargl 

MOVEL #1,15P) ‘ Au sommel 

CAR 48) . On ne ha lemme 
‘PÆ 

CLAL SP) 

_NewWindow 

MOVEL {SP} Windowt 

_SetPort 

MOVE #04) : mode = patXor 

_PenMode 


Redangl: 
:FUNCTION NevRgn : Aÿiants; 


CLAL {SP) 

_NewAgn 

LEA FRoaHandie, A0 

MOVEL  (SP},A0) 

Grkge: 

MOVE.L  #21344,00 : 322 x 64 +2 x 
:46x8 

_NewPtr 

TST D0 

8SECS @1 

_ÆxliToShell 

@1 

LEA Grée A 

MOVEL  AD{Af) 

MOÆ 445,D1 

MOÆ #63,00 

AIOVE #-1,D2 

MOVEB  C2,(A0)+ ; une rangée 
; noire 

DBRA D0,@2 

MOVE #383, DO 

MOVEQ  #1,02 ; et six rangées 
; de 00000001 


9 
MOVEB  DeiA0} 
DBRA ©0.@3 
DARA Di, : 46 lois --> 322 
; rangées 
LEA Tampon Vide. At 
MOVEL  AD{Aï) 
MOVE #91.00 : Vidons-le 
; effectivement 
@s 
CIRL {A0 
DBRA D0,@5 
LEA Tampon, Ai 
MOVEL AO{At) 
Cureur 
CEAL P) ; É6QpÉDE l2 
; montre 
MOVE _ ,1SP) ; qui est dans 
‘hité 
_GeiCureor ; Setem 
LEA raichhande, A0 
MOVEL (SPH{A9) 
RTS 
A — Traitement des événements 
HandieEvent 
MOVE Modéy, Mit ñeg 
MOVE What DO 
ADO D0,D0 
MOVE EventTable(D0),D0 
AMP EveniT ablo(D0) 
EventT able 
DC.W NextEvent-EventTable ;NulE vent 
* (netdeé) 
DCW MouseDown-Event Table 
DC.W NextEvent-Even!Table  ; Mouse Up 
: (Inulisé) 
DCWw Ke y Dowr:-EventT able 
DCW NextEvent-EventTable ; Key Up 
;(inuieé } 
DCW KeyDowr:-EventT able ; Auto Key 
DC.W Update-EveniT able 


: Normalement, 12 table est plus longue, najs sous ne 
:F@SONE lei r POUT les A aa TV Lo 


© —— ADTE OVER — —— — 


Update 
MOVEL massage, {SP) 
_BeginUpDete 
MOVEL  nrassage,00 
CMPL windowt,D0 
8NES @1 
6SA Affiche 
@t 
CMPI window2, DO 
8NES @ 
ESA AffCompte 
MOVEL mesye,{SP) 
_EndUpdeie 
NextEvent 
RATS ; retour à la 
; boucle 
KeyDown 
BTST #CmdKey,ModityReg ; Seules les 
| commandes 
BEO Ne xtEr'ent : N0US 
‘intéressant 


: FUNCTION MenuKey {(ch:CHAR}. Longint: 
CLRL 4) 
MOVE MS 4042 {SP) 


: Le cær actère est 
_MenuKey Les une 
mb ? 
MOVE (SP}+,MenuReg 
MOVE {SP}+,MitemReg 
BRA Choices tons do 
'reumeus Pour Mouse Down c'est plus compliqué 
MouseDown 


; FUNCTION FiruWirdow (thePt: Point; 
: VAR whichWindow: WndowfFtr): INIEGER; 
; plaœ pour 


CLA {S) 
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MOVEL Point, {SP) ; coordonnées de 
: la souris 
| PEA WMrcirs ; Event Window 
_FindWindow 
| MOVE (SPh,D0 : ruméro de 
; égon 
ADD D0,Do ; 2 pOur table 
; dire x 
MOVE Window Table (DO),D0 


MP WrcwT abls(D0) 


Window able 

DCW  NeEvent-WindowTable 

Dw toMenu-WindowTeble 

OCW  SysemEvent-WindowTable Window 
CWw Content-WindowT able 

DCW  CoDrag WnbwTabls 

OCW  NonEvent-WindowTable 

OCW  DoGoAway-WindowTabke 


Systeme vent 
; PROCEDURE SystemClik (the Event: 
; EventRe cry; 
: theWindow: WindowPrr}; 
PEA Eventfecord 
MOVEL  WWindow,4SP)} 
‘ _SyetemClick 
BRA Ne Event 


Content 
MOVEL  WWirdow,DO 
CMPL window? ,D0 
BNES @t 
MOVEL  wndowe;{SP) ; si c'est le 
; compteur 
SelectWindow ; sélectionner sa 
; fenétre 
BRA Ne Event 
@! 
BTST grunBistalusReg 
BE Next£vent 
MOVEL  Wndowi,1SP) 
_SetPort 
PEA Point 
GltobaiTolocs! 
T Ses Bit sta Roy 
8EQ Fab 
CiA 15) 
MOVEL  Point,{SP) 
PEA LoRect 
_PtinReot 
7ST PH 
BEQ NextEvent 
MOVEL  retHandle;-{SP) 
PEA LoRect 
_RectAgn 
LEA &mies, A0 
MOVEL  Point{A0} 
MOVEL  Lofed-(SP) 
PEA Enites 
_SubPt 
LEA Emaes, A0 
MOVEL (AD) (A0) 
MOVE.L  #$011401C0,4SP) ;y = 276, X = 448 
PEA nes +4 
_AddPt 
PEA LoRect ; jar on pour 
PA 1 ent" lo Frs 
; sterPoint : Point, 


: sophea : Reci: FER IE aponProc : 
, ! Prof} : LONGINT: 


CLRL 4F) 

MOVEL  RecthHande.-(SP) 

MOVEL  Poin,15P) ; le coin en haut à 
; gauche 

PEA imies 

PEA HiRlect 

CLR 15) : pas de 

CERL 4#) : ni d'ebonProc 

_DragGrayRgn 

CAPIL  #$80008000(SP)  ; Renvoyé si le 
; bouton est 

BNES GA ; @ladé hors 

ADDA #8,SP 

BRA Next£ vent 

es 
PEA LoRect 
_FrameRect 


_OffestRect 
PEA LoRect 
_Framekhect 
Next£ vent 
Fatfiè=: 
BCLR bdetsrBisietusReg ; codeur 
;brmiée 
G9 
CLR 06 
MOVE _ yCoc,D0 
Le 1:73 #7,00 
MOVE D0,02 
ADD Top,De 
MOVEL  anged, A0 
Of A0 D2) 
MEU #512,02 
MOVEL  D2,A6 
ADDA Lef,A6 
MOVE xCoor.Df 
ASR 4,01 
ADDA D1,46 
MLU #7,D0 
LEA pix, AD 
MOVE  D0{AD}) chat 
AD0Q #7,D0 
MOVE D0,4(A0) ;bss 
ASt #5,01 
MOVE  Df,2(A0) ; gauche 
ADOI #6,01 
MOVE DI.6(A0) ; droite 
CELA +5) 
MOVEL  Boad:(SP) 
MOVEL  AG-{SP) 
_BitTst 
TST (P} 
BNES @7 le bi était now 
BTST SdmrBa statusFieg 
BNES € ; on cad ds 
BSET #JewrBi statusReg 
BSET #00 foi Setus eg 
BRAS et 
@8 
BTST #okrB,status Reg 
BECS  @f0 ; blanc sur blanc 
BAS Es 
@7 
BTST #doterBit,siatusReg 
BNES @9 
BSET #doterBit,statusReg 
BCILR #colorBi,sialusFeg 
BRAS @S 
@9 
BTST #colorBi,stalusReg 
BNES @10 : N0f sur ok 
BRAS @S 
@4 
MOVEL  Board,{SP) 
MOVEL  A6:{SP) 
_BitSet 
BRAS @ 
MOVEL  Board,{SP) 
MOVEL  AB-(5P) 
_BKCIr 
@8 
PEA x 
_{inverflect 
@10 
ŒR {5F) 
_WaltMouseUp b bouton 2-5 
3 6t6 Eaché 7 
TST (FH : Si oui mise à 
jour du 
BE AffCompie : œmpteur et 
;'m#ou 
PEA Point 
_GetMouse 
CA 
MOVEL  Poïd{SP) 
PEA He 
_PtinRect 
TST (Sy 
BEQS @10 
BRA sd) 
BD 
MOVEL _ WWindow.{SP) 


MOVEL  Point,-{SP) : coordonnées de 


per mins ER [3 


_DragWindow 
BTST  #CmdKey,ModiyFeg ; cde ? S EN 


@e1 


BNES @1 Sn 
MOVEL  WWindow,{SP) ; non, activons 

; fenétre 
_SelectWindow 
BRA Neat£ vent 


DrGeAwey 
;FUNCTION TrakGAwey(Me Windbw : 


‘ztanFoirt : Poini) : BOOLEAN 


an SP) 
MOVEL  WWircbw,{5P) 
PEA Poié 
_TrackGoAway 
TST (y ; L'utilisateur 
; veut-# 
&QS 6e ; vraiment fermer 


MOVEL  WWindbw;15P) 
MOVEL  Windowi,(SP) 
.SendBehind 

BCLR #oountBit, status Reg 


BRA Nex£ vent 


Dm — Aftichas de MORE —-———— 


: FUNCTION MenuSelect (stertPtPoint} :Longint; 


CLRL {S) 
MOVEL Point {SP) 
_MenuSelect 
MOÆ (SP) MenuPeg 
MOVE (SP)+,Miemheg 
Choins 
CW FApp laMenu, Menu Reg 
BEO MAppleMenu 
CWP #FieMenu MenuReg 
BEO InFieMenu 
CP #EditMenu, MenuReg 
BEQ NEfMere 
CMP #Ctienu, MenuReg 
BE ICE u 
ChoiceReturn 
GR 4) 
_HiliteMenu 
BRA NextEvent 
InAppleMenu 
CMP #Aboutilem, MitemReg 
B8NE.S AcCEan0rB 


FUNCTION Alent{AlertiD : INTEGER: Fier : 
: ProcFv) : INTEGER; 


CLR {SP 
MOVE #AboutAlert,{SP) 
CEAL 15) 
_Alert 
ADDOQ #2,SP 
BRA Choicefletum 
AG50re: 
; PROCEDURE Gethem (menu: MenuHande ; em: 
NTEGER: 
: VAR iemString: Si255); 
MOVEL  AppleHReg-(SP) 
MOVE «| 
PEA theString 
_Getitem 
FUNCTION OpenDeskAcciihe Acc : Str235) : 
; NTEŒR 
CLA 5) 
PEA heSning 
.OpenDecskAcc 
CLA y ; Borske ré uftat 
BRA Choicefetum 
InFileMenu 
CMP PNevwitem MiemReg 
B8NES Open 
Efacs: 
MOVEL Board, A0 ;: Efscer tout 
MOVE #5877,00 
! 
CERL {A0} 
DBRA D0,@1 
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7 BNE 


; PROCEDURE SF GetF de(topLeft : Point; 

: PromptString : Str265; 

; féeFitter : Pro; num Types : INTEGER ,; typeList 
; : SFTypeList; 

; dialogHook : Proæu; VARreply: SFRephy}; 


MOVEL  #S006400524SP) ;x 82, y m 100 
CIAL 1) 
CERL 18) 
MOVE #1,1SP) ; tous les types 
CIAL 1) ; pas de tyPeList 
CiRAt SP) 
PEA 
SFGotFlle 
LEA Good A0 
IST {A0} 
8EO ChoiceRetum 
CLAL ParamBlock+12(A5) 
LEA théString,A0 
MOVEL A0 ParamBlock+18(A5) 
MOVE Vrsfflum, DO 
MOVE D0,ParamBlock+22(A5) 
GA PeramBlo:26(A5) 
CLAL ParanBlockr28(A5) 
LEA ParamBlock(A5)},A0 
_Open 
‘Traitement d'erreur... 
MOVE.L  iampon.Ai 
MOVEL  At,ParamBlocks32(A5) 
MOVEL  #368,ParamBlock+36(A5) 
MOVE #{,ParamBlock+44(A5) 
CLR ParamBlocks46{(A5) 
LEA ParamBlock(A5), A0 
_Read 
Traitement d'erreur... 
LEA ParanBlock{AS),A0 
_Close 
PEA Tampon 
PEA Berd 
PEA TanpReca 
PEA LoRect 
A 4P) 
CiRI {SP) 
_CopyBits 
MOVEL  Œanged A0 
ADAA Top,A0 
MOVE #45,00 
@6 
ST (A0}+ 
DBRA 20@6 
BSA Affiche 
BSR Affoomple 
BRA ChoiceRelurn 
Save: 
PEA Bozd 
PEA Tampon 
PEA {oRect 
PEA TampRed 
GA &) 
CtAI {S&) 
__CopyBits 
CMP #Ssvelten:,MemReg 
BNE Qu 


; PROCEDURE SF PutFileftopLett : Point; 

: PrompiSining : Sr255; 

‘Int Text :S255;debfoot :ProcPir; VARrep}y : 
:SF Reply). 


MOVEL 6500640058, (SP) :x-104,ÿ = 100 
CIRL 4) 

MOVE #prampl, SP) 

_GetString 

MOVEL  (SP)A0 -dérétérençons 
MOVEL (A0USP) 

PEA e 

CAL 4) 

PEA reply 
_SFPutFlie 

LEA Good A0 

TST (40) 

BEQ ChaceReturn 

CLRI ParamBlock+12(A5) 

LEA theSiring, AC 

MOVE.L  A0,ParamBlock+18(A5) 


VretNum, DO 


#OpanhemMtemReg 
Se 





MOVE D, ParanBlock:22(A5) 
CLR PayamBlock+26(A5) 
LEA ParamBlock(A5),A0 
_Create 
CLRAL ParamBlock+28(A5) 
LEA ParamB!ock(A5}) A5 
_Open 

:Trañement d'erreur... 
MOVE.L lampon,At 
MOVEL  Aï,ParamBlock+32(45) 
MOVEL  #368,ParamBlock+36(A5) 
MOVE #1, ParamBlock+44(A5) 
CLRL  ParanBlocks46{A5) 
LEA ParamBlock(A5),40 
_Write 

;Trañement d'erreur... 
LEA ParamBlock(A5),A0 
__Close 
CIRL ParamBlock+18(A5) 
LEA ParamBlock{A5),A40 
_FluehVol 
BRA Choicefetum 


Edition 
Annuler 










Effacer k 
Source ‘Vie3.Asm' 


Quit: 
CMP #Quültem MitemReg 
BNE ChoiceReturn 
BSET #quitBit,slatusReg 


BRA ChoicsReium 
InEditMenu 
CLR 48) 
MOVE MitemReg,-(SP) 
SUBQ #1, (SP) ; décalage pour 
; SystemEdit 
_SyeEdit 
TSTB (Ph + Al faa qqch? 
BNE Choicafeturn 
ww #tearlem MftemReg 
BNES Coprer 
Etfaeer 
PEA TamponVide ; TamponVide --> 
PEA Bas 
PEA Tamp VidaRet 
PEA LoRect 
CLA 4) 
CLRL 4) 
_CoPyBits 
BSA Affiche 
BSA AffCompie 
BRA ChaceRaturn 
Copier 
CP #copyltemMiemhReg 
BNES Coler 
PEA Basd 
PEA Tampor: 
PEA LoRect 
PEA TampRea 
A {&) 
CLAL 1) 
_CopyBlis 
BRA ChoiceAeturn 
Coter 
CWP #pasteltemMtémReg 
BNE ChaceRelurn 
PEA Tampon 
PEA Bas 
PEA TampRea 
PEA Lofect 
CLA XP) 
CERL 4) 
_CopyBits 
BSR Mie 
BSR AffCompts 


@6 
ST (0}+ 
DBRA D0,@6 
BRA ChoiceReturn 
—— —— Menu CONTE ——. . 
InCtlMenu 
ADD D6,D6 
MOVE CtiMenuT able(D6),D6 
JF CéVenuT abte(D6) 
CtiMenuT able 


CCW Ounmy-CtiMeru Table ; pas d'item 0 
DCw DuGo-Ct'MenuT able 

DCW DoStop-CtiMenuTable 

DCW DoStep-CtiMenuT able ; une 


: pénérabon 
DCW DoNgsn CtMfenuT able ; n générations 
DCW Dummy-CtiMenuTable ; une ligne de 

; Soyaibn 
DCW Colo-CtiMenuT able ; LoRes 
DCW DoHi-CiMenuT able ;HiRes 
DCW Dummy-CiMenul able ; une autre ligne 
DCW DoCounter-CtiMenuT able ; Montrer le 


: Comfteur 
DCW Dunmy-CiMenuT able 
DCW DoProba-CilMenuT able ; changer la 


; pobabiiié 
DCWw Coûles-CiiMenuTable  : Remplssage 
DES 


# 


DoGo 
BTST #nnBit, statusReg 
BNE ChaicoReturn 
BSET #nunBit,statusReg 
MOVEL  Cande,{SP) ; handle vers le 

; menu 

MOVEL _ (SP)ASP) ; duplique 
MOVEL (SP)4SP) ; triplique 
MOVEL _(SP}:(SP) etc 
MOVE WGokem.-(SP} 
_Dlsableltem 
MOVE #Stepltem, {SP) 
_Disableltem 
MOVE  #Swpltem,{(5P) 
_Æ£nableliem 
MOVE #nGenitem,-{SP) 
_Disableliem 

Ourmy | 
BRA Choicefetum 

DoStop 
BIST #nnBit.statusReg 
BEQ Choiceeturn 
BCLAR #runBit,statusReg 
MOVEL  CHandie,-(SP) 
MOVEL _(SPIASP) 
MOVEL _(SP}1ASP) 
MOVEL  (SP)4SP) 

#Gokem, (SP) 

_Enabieltem 
MOVE #Slepitem,-(SP) 
_Enableltem 
MOVE #Stophem, {SP) 
_Dlssbleitem 
MOVE  #nGenitem,{SP) 
_Enableltem 
MOVEL  Windowi,-{SP) 
_SetPort 
BTST #resBit statusAeg 
BEQS @1 
PEA LoRect 
_FremeRect 
BRA ChoiceRelurn 

@1 
PEA Ge 
MOVE L  Window1,-(SP) 
ADOIL #2,(SP) 
PEA Ha 
PEA HF 
MOVE #2, SP) ; mode srcXor 
CiAL 48) 
_CopyBite 
BRA Choicefleturn 

DoStep 
BSA Caicue 
BSR Affiche 
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CtRL 18) 

MOVE ÆGenDiabg, {SP) 
PEA OSvyage 
MOVEL  #:1,1SP) 
_GetNewDis/og 

MOVEL  (SP)ASP) 


_ModalDiatog 
MOVE fem DO 


&EQos 1 
__CloseDiaiog : Ce doi être 
; annuler 
BRA ChoceRetum 
@t 
MOVEL  (SP){4SP) 
MOVE WediT exl-(SP) 
PEA senType 
PEA LiemHande 
PEA dspfect 
_GDlèm :réapérabondu 
; nombre de 
MOVEL  äemHandk,(5P) igénér ations 
; demandées 
PEA theString 
_GetiToext 
…CloseDislog 
LEA HheSiring,A0 
_StringToNunt : nb est dans 
;D0! 
TST Do 
BEQ ChoiceFeturn ,si nà = Ü, ne non 
SUBQ  w1,D0 : ON VA Ublner 
; DBRA 
MOVEL  D0,4SP) ; motors ie à 
MOVEL  Windowi,{SP) sredsssirons 
; tout de suite 
_BeginUpDate ‘ e ange 
; sé en 
BSR Affiche : blancpar 
; os at 
MOVEL  Widowi,{SP) 
_EndUpdate 
MOVEL  wachHandie,A0 ; l'utilisateur va 
; attendre 
MOVEL  (A0}15P) : Déréferençons 
_SetCursor 
MOVEL  (SP},D0 :r6apéone js 
; nombre 
@3 
BSA Cale 
DBRA D0,@3 
_tnliCursor 
Ben à 
BEA AlfCompe ;actualisons le 
; compteur 


BRA ChoiceReturn 


8TST #res Bt,statusReg 
BEQ Choiceñetum 
BCIA #resB,statusReg 


BSR Miche 
BRA ChoiceHeturn 
Dh 


8TST res Bit, stalus Reg 
BE ChoceRetum 
BST #rosBi,statusReg 
BSR Aflicha 

BRA Choicafie turn 


DoCounter 
MOVEL  wmndow2,4SP) 
_SeleciWindow 
BIST #countBit,slalusReg 
BNE Choceñetum 
BSET #countBit.stetusReg 
BSR AffCompte 

BRA Choicefetum 


DoProba 
CEURL 4) 
MOVE #ProbaDiabog-(SP) 
PEA DStorage 
MOVEL  #1,15P) 
_GetNewDlelog 
MOVEL  (SP)ASP) 
_SetPort 
CURL {F) 





PEA æmHi 
_ModalDialog 

MOVE AemHit DO 
CP $0Kæm,D0 


GE QS @t 

_CloseDislog 

BRA ChoimAetun 
@t 


MOVEL (SP) ASP) 
MOVE  dleditText {15P) 


PEA #en: Type 
PEA iemHande 
PEA 

GetDitem 


MOVEL iemHandie, {SP) 


PEA theSring 


_GetITexi 
_CloseDisiog 
LEA PeStnng, A0 
_StringToNum 
CP #100,00 
BNE (C2 
MOVE #255,D0 
BRAS @ 

Ge 
MUU #64,D0 


D #25,D0 

LEA Proba, A0 
MOVEB  0O0{A0) 
MOVEL  Windwi, (SP) 
_BeginUpDate 

BSA Affiche 


MOVE L  Wirdow1,{SP) 
_EndUpdate 


; Ce doi étre 
;annider 


« da probabiffé ost représert ée sur un ociel, soi huit 
: chôfres binaires. Chaque bè du mot renvoyé par 

; Random a uns probabifé 1/2 d'être positionné. Un 
; bit à 1 dans le probs est tadui par un Of et un bit à 0 


; par un AND. Cest @mpéqué, mais 


; methématquemeré correct C'est plus rapide que de 
; caler bit par BE e n laant appel à Random lous les 
; deux bifs car toutes les Mmanips se font au niveau du 

; mot D'autre pat, avec la probe par défaut de 50%, à 
: nŸ a QuUun appel à Random pour 16 bils, ce que ka 

; méthode “naturelle” ne permettait pas. 


DoÂlea 
MOVEB probe. 00 


8EQ Efeær 
MOVEL  wachHandie,A0 


MOVEL  (A0}15P) 
__SetCursor 

MOVEML A4/09-05,-(SP) 
MOVEB  pobaD3 
MOVEG  #7,D4 


@t 
ASR #1,D3 
08cS D4,@1 


MOVEL Board, A4 

MOVE #maxWord, DS 
Ge 

aR SP) 

_Rendom 

MOVE (SP), (A4)+ 

D8RA De? 

BAS @7 


MOVEL Board, A4 
MOVE #naxWord,D5 


ASA #1,03 

Bcs (C1 
@6 

an 4) 

_Random 


DERA  D6@6 
BRAS @7 
AR 4 


; proba nulle : 

; effacer 

« IVtksae uw va 
‘tendre 
;Déréterençons 


; proba sur 8 bès 





_Rendom 
MOVE (SP},00 


on DO{A4} 
DBRA Œe< 

@? 
OBRA D4@3 
MOVEML (SP) D3-D5/ A4 n 
ana 


Sasfog 
MOVEL  changed.AD 
MOVE max, 00 


ST {A0} 

DBRA 009 
_NiCuzx 

A Miche 

BSR AfComple 
BRA Choicefetum 


Atfide 


PROCEDURE Copy BitstF romB,!oB : BiMap; 
; rome : Rect: 


! mode : INIEGER; pro :RgnHande); 


MOVEL  Widowf,{SP) 


_SetPort 

BIST #resBit,statusReg 

8EQS  @1 

PEA Bosni 

MOVEL  Windwi,{SP]) ; Offset 2 pour le 

ADDIL #2,(SP) ; d'une fenêtre 

PEA Hilect 

PEA HiRsct ; fenétre entière 

CLR 1) : mode copy 

CLAL 4) :P25 de cipping 
; suppémeréeire 

_CopyBite 

BST #nnBitsiatusReg  ; le æctengle 
; n'est dessiné 

BNES 4 qu'à l'arrêt 

PEA LoRet 

_FrameRect 

BRAS @æ 

@t 

PEA Baz0 

MOVEL  Windbwi,{SP) ; Offsel 2 pour 
« bèmæp 

ADDI.L #2,(5P) : d'une fenétre 

PEA LoRect ; une P&6e de la 
;6utaS 

PEA HiRlect ; fenêtre ertière 

CLR 1SP) ; mode Copy 

CLRL {5 : pas de chpping 
; supplémentaire 

_CopyBlts 

B1ST #runBit.statusReg  ; le gräle n'est 
; dessinée 

BNES @ ; qu'à l'arréé 

PEA Grille 

MOVEL  Widowi,{SP) 

ADOIL #2SP) 

PEA 1e 

PEA Hd 

MOVE #2 1SP)] ; mode srcXor 

CLRL {SP) 

CopyBlis 
RTS 
AffCompte 

BTST #ountBi, status Reg 

BEQGS  @t 

MOVEL  widom2(SP) 

_SetPort 

PEA ta 

_EraseRect 

MOVE  M,{SP) : 1ère igne du 


MOVE  #13,(SP) " 
_MoveTo 


, PROCEDURE NunT oGrmp{theNum : LONGINT ; 
; VAR MaSbing :Str255); 

; ATTENTION: Comme ne fMndique pas le bvre de 

: Chernikoff, NumToStrng vêkee les registres AD et 
; DC en entrée, laissant AO intact en sortie 


CLRL Do 
MOVE  statusReg,DO 


LEA thaSinng,A0 
_NumToString 


; 16bits de poids 
; able 


’ 


ss 
<a 


MOVEL  A0,-(SP) 


_DrawString 
| | MOVE #4,{SP) ; une ligne plus 
‘bas 


MOVE  #254SP) 


SN _MoveTo 
S MOVEL  D6,-SP) ; Sauvons un 
; registre 
CLRL Do ; calcul de la 
: population 
MOVEL Board, A0 
MOVE #maxLong,D1 
@3 
TSTL (A0}+ 
BEOS @ 
MOVEL -4(A0),D2 
MOVE #31,D3 
@s 
ASRAL #1,D2 
&CC.S 
ADDOL  #1,00 
@4 
DBRA D3,@5 
@e 
DBRA D1,@3 
LEA teStnng, A0 
_NumToString 
MOVEL  A0{SP) 
_DrawString 
MOVEL  (SP}+,D3 ; Récupération de 
; StatusReg 
MOVEL  Windowi{SP) 
_SeiPort 
@t 
RIS 


; ————— La Vie est ici 
; Chaque y angée' du tables u est pat we à ia 
«referche de bis à 1 (pixels vivants). Pour d'aque 
« bi trouvé, on ajoute sa contribué ion aux 9 octets 

| correspondant aux neuf caras du carré 3 x 3 dont le 
; pixel est le centre, dans les ‘lignes'préédente, 

, présente el suivante respebvement Cette 

; œnérbution vaut { pour le cœrdre et 2 pour tous les 
‘autres rés. Ceci est le avai de ie outre Cak 

; Quand une Vigne’ s été dans les iroisposibons, on 

; peut Calculer la vale x de ia Yangée' correspondante 
; dans le tableau de la nouvelle génération Comme la 
; ligne était remplie au départ de +5, es püeis vivants 
: œrespondent aux cases œntenant 0, i ou 2, œ 

, QU'un rapide caic:us pernel de vérifier. (L'intérét de 

; œtie méthodes iordue par rapport à ure méthode 

; ps naturelle" consëlant pes exemple à partir de 0, 
; Aouter 1 oÙ 10 et à Men er les cases contenant 3 
; 12ou 13est dé supprimer 8 ou6 instructions à un 
endroit crucial : le gain de temps ast de l'ordre de 

: 30% 1) Ceci est fat par routine Trarstet fyades 
‘cas parculers pour les premières el demièræ 

: angéas, ainsi que pour les Premiers st derniers bès 
:de chaque rangée, parcs que je voulais un lorrain 

: torique : un glisse (x arrivant à un bord réapparait à 

; l'autre bord 1 lieu de dégénérer en un misérable 
:@nT6, 

; NOTE : J'avais donné des nams symboliques aux 

; reétres, mais l'assembieur prétendait que les 

; modes d'adressage complexes étæernt légaux. J'ai 
: donc dû rendre aux registres leur nom d'ongine, me 
: contenant de donner o-dessous leur signification. 


A1  ;poirte vers le début d'une 

; Vangée 

; Mgne' pr éasdente 

; Yge'présente 

; ne‘ suivarte 

; pointe vers le bookéen qu 

; indique si une rangée st non 
: vide 


; stockage lemporaire 

; Coodonnée verticle (à 

; l'envers...) 

; offset du mot long étudié (croit 
‘degàd) 

: offset du: Dit (décroï de gauche 
; à drude) 

: Coonbnnée horizontale (croit 

:ægàd) 

; e mot lo! g parœouru ou 

; construit 

; {a nouvelle rangée a-tele un ‘ 

; ae vivet 


8 Ê à & D ÉË ÉSBBE Ë 
BRER 


MO af 
S 8 & &R & RS 






Contrôle 
Go 
$tog 
Une génération &U 
n générations... &N 
Basse résolution æB 
Haute résolution ; 


Compteur 


esse ssnsennnns annee sens snns sense 





æ6 
xs 






















Probabilité.…. æP 





Remplissage aléatoire %f 
Li à s 
Source ‘Vie4.Asm 
Cat Pred, ac suivet base daivent être 
,œreds en entrée 
; Calc ne les modifie Pas (A1-A4), mais 
; moddie D3.D6 
CLR D3 
MOVE #31,D5 ‘eric de 
sbrenchement 
; juste après 
MOVEL  fAI}D6 ; premier mot bb ng 
8EQS @1 : SW est ui mof 
SUV 
BPLS @e ; sike l'hitest 
:'nuf b8 suivant 
ADDQB  #2,511(A2) jeffetse 
; demie case 
ADDQB  #2,511(A3) . des Egnes 
ADOOE  #2511(A4) 
ADDQB  #2(A2) ;et sur les 
; première 
ADDOB  #1(43) 
ADDOB  #2(44) 
ADDQB  #2,1fA2) ; et secondes 
| cases 
ADDQB  #2.(A3} 
ADDQB  #2,1(44) 
@e 
CLR D ; modéions l'octet 
:le plus à gouñe 
MOVE #30,D4 ; le bisuivantest 
‘le #30 
@4 
BTST D4,D6 
BEQS @ ; branchement si 
;btà0 
ADDOB  #20(A2,D5) 
ADDQB  #290(A3,D5) 
ADDOB  #2,0(A4D5) 
ADDQB #2, {A2.D5) 
4DDQB  #i,1A3,05) 
ADDOQB #2, 1(A4D5) 
ADDQB  #2,2(A2D5) 
ADOOB  #22(A3,D5) 
ADDQB  #2,2{A4D5) 
@s 
ADDQ #1,05 ; incément er h et 
; décémenter 
DBRA D4,@4 ;len'dubé, 
; enAYE Si >aÛ) 
@! 
MOVE #31,04 
@5 
ADDQ #4,D3 
CMP #60,03 
B8ECS @7 
MOVEL  ©Aï,D31D6 
8NES @4 
ADD! 432,05 
BRAS @ 
@? 
MOVEL  O{A1,D3),D6 
BECS @e 
@8 
BTST 04,06 
BEQS @10 
ADDQB  #20(A2D5) 
ADDOB  #2,0{A3,D5) 
ADDOB  #2,9(A4,D5) 
ADDOB #2 (A2D5) 
ADDOB  #1,1(A3D5) 


ADDO.B 
ADDQB 
ADDOB 
ADDQB 
@10 
ADDO 


SU8Q 
BNES 
BTST 
BEQS 
ADDQ8 
ADDO.B 
ADDOB 
ADDQB 
ADDQ.B 
ADDQB 
ADDQ.B 


ADDQB 
ADDQB 


MOVEL 
MOVEL 
MOVEL 


ADDA 


#2, 1(A4,D5) 


#2,2(A2,D5) 

#2,2(A3,05) 

#2,2(A4,D5) 

#1,05 

#1,D4 

(2 

04,06 

ge 

#2,0(A2.D5) 

#2,0(A3,D5) 

#2,0(A4,D5) 

#2, (A2,D5) 

#1,1(A3D5) 

#2,1{A4D5) 

#2{A2) ; œ px el de 
; dote a des 

#2(A3) ; effets a1rssi sur 
; loctet 

#2 (A4) : le plus à Gauche 

512(A2) | dée lignes sont 
; akes' 

512(A3) 

512(A4) 
Of} 

ta ligne vers laquelle predaA2 pointe 


jestpaooiuns. À chaque 0, f ou2 
; touvé, on aura un pixel Vivard' à ls 
; Jénération suivante. On met à urile bà 
;©œrrespondant. La rangée ainei fornée 


;est écrte sur la rangée précédant cie 
; vers laquelle base poinie. En sortie, 
; diaD7 vaut $FF sion a trouvé a 
3 Moins un point vivant, à 0 8mon 
#64,D3 ; Offset de ka 
; rangée 
D? :fe9 à ro 
Ds ; Premier élément 
de la &gre 
#31,D4 ; bi de poids fort 
; (pixel gauche) 
D6 
0(A2,D5),D0 ; sons la valeur 
@s 
#2,D0 
@ 
D4,D6 :Vvet si 0, Jor2 
#:,D5 
D4,@5 ; mot L lérminé ? 
DES Aï,D3) jour ,écrivons le 
@6 
D7 ; kraxjés n'esl 
; PSS vide 
#03 ; fn de rangée 
; ateirde 7 
@t ; non, mot SUVETÉ 
A0.A4/D0-D7,{SP) ; sauvors les 
‘regsstes 
mons2,A0 
#644,D0 
#$F BFBFBFB,(A0)+ ; cinq Égres à 
nettoyer 
D0,@1 
anges change  ; change EQU A0 
Aer A0) ; dernière rangée 
: vie ? 
; GUi passons 
moins?, A2 
mous {, A3 
p2s0,A4 
Board, At ; adresse de base 
; dela 
#20544, A1 ; dernière rangée 
Calc 
Boad,Aï 
(A0) ; première rangée 
h ? 
Ca 
moins, A2 
pas0, A3 
Pasi.A4 
CC 
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@3 ads D 0.0,28,60 
MOVEL  pas0.A7 TST.B 514 A2) 
MOVEL  pasi,A3 GNES © si 
MOVEL  pas2. M ESA Trensie 2om+@ æœ 0 (A = 
MOVE ax év ; $16 rangées MOVEEB  cf,-1A0) lier Type DC 0 
;æmbhs @ tembange DC 0 a SN 
es MOVEL  A3,A2 dispRect DC 0,0,0,0 D 
ADOA #64,A1 MOVEL  A4A3 
ADDQL  #1,A0 ADDA #64,A1 Board OCL 0 ;bèmapftable au de 
TST.B S12(A4) ; & lipne suivante ADDQGL  #i,A0 ;u) 
;: et-elle TSTB 512(A2) rowtyles: DC 64 ; œmme screenbits 
BNES  @X ; 616 utilisée ? BNES  @10 Het DC  0,0,322,512 
MOVE #128,D0 oui nefbyons.ja BSR Transtert ; comme PoñRect 
ADDA #516,44 MOVEB  ch-1(A0) 
@10 éd DC  0,0,276,448 
MOVEL  #$FBFBFBFE, -{A4) MOVEL  A9,42 ; pour hagGrayhgn 
DARA D0,@5 ADDA #54,A1 
ADOQL  #1,A0 G OCL 0 un autre hènsp 
7ST.B (A0) ; @ngée blanch ? 1ST.B S12(42) œ 64 
8EOS @6 ; Oui, sautons-la BNES @1 Le] 0,0,322,512 
BSA Ci :10n, caoN de 52 BSA Transten 
: conhibuton MOVES  ch,-1(A0) Tarpon DCL 0 : un torse 
@6 @11 Lo 0] 8 
TST8 S12(A2) ; &t-0n 60nit dans MOVEME (SP}+,40-A4/00-07 TampReæ DC 0,0,46,64 
: ki gne ADDO #1.statusfeg 
BNES @7 ; précédente ? RTS TamporWide: OCL 0 
BSR Trarstet Joui, cæcui de la ; sert à fac 
1 j————- Données Mapa -—— ———— DC 8 
MOVE.B  ci-T(A0} ; Qui est vide ou TampVideRed: œ 0,0,46,64 
;ron EventRecord ‘Re nvoÿé par 
@? ‘GetNextE vent LofRec ; 46 x 64 cerdré( au début } 
MOVEL  A2-(SP) « rxabon entre les Wat: œ 0 : Nature de Top: DC 158 
; gras : l'événement Left: œ 224 
MOVEL AS,A2 Messege: DCL 0 :prénisone diverses Botiom: DC 164 
MOVEL  A4,A3 Wen:  DCL 0 : nb de Tides Rof: DC 288 
MOVEL  (SP)+,44 Point: ; coordonnées de la 
DBRA v@8 ; ue autre ;œure Prés DCB8 12  ;probar/Æ au but 
; agée yCoor D 0 
xCoor: D 0 Pa Lo 0] 0,0,00 ; gros pel 
Encore_ deux ; une étiqueñe Modify: DC 0 : Êtat dd œnmede, ; edanquisre 
ï + ; opton... 
MOVEL  mons2,44 ReciHandike  DCL 0 ; Région redanguairs 
ADOA #64, A1 WWiw DCL 0 ; Réouke de waæchHandle DCL 0 | arseur montre 
ADOOL  w1,40 EndWindos 
1ST.B (A0} moins2 OCL 0 ; poinleurs de ligne 
8EQS @6 CHazdie DCL monsi DCL 0 
BSA Cat DStorage DC&W DWndlen,0 ; Dalsques p250 DCL 0 
IST.B past DCt 0 
512(A2) spy pas? DC&L 0 
BNES  g7 good: æœ 0 Aargpd DCL 0 ; pointe vers un fahlsou 
BSR Terslat ÎType: OCL 0 de brokers 
MOVEB ch-1(A0) ein: DC 0 
@7 Ærao0n ue] 0 ;—— Données ron eloypables os 
MOVEL  AS,A2 MeSmrg: DCBW 64.0  ; dvermes haies 
MOVEL  M,43 ; ÿ compre (Name WStorage! DSW WindwSize 
MOVEL  monst,A4 :SFRepty ; Fenêtre prroape 
ADDA #64, A1 Waprage2 DSW WinbwSizæ 
ADOQL  #1,A0 Windowñect DC  20,0,342,512 ; Fénêtre du compteur 
IST.B (A0) ; Tableau de jeu Pasam Block DSW © ;Pourke 
BEGS  @6 œunterflect DC  48,420,76,480 ; entréas/sorties 
BSA Cac ; œmpleur 
j, G CoderV Bution 4 Tye ON 
Fichier ‘Vie.R es SD a 
K Buton 4 
Jeu de la Vis 4 40 40 50 120 
APPLIDI V Carmô SaticText Dsabied K Button 
j GG 152036 300 404060 120 
INCLUDE Vis .Code {SonS Jeu inventé par J. Conway Bution œ 
Une génératon/U 40 180 60 260 
Type MENU ngérératiors. /N StaticText Deabled Annuler Bron 
‘1 2 3520%380 40 180 60 260 
LR Basse résoltionB © Dominique Bemerdi StabicTat Dsablod ES 
C'eæsthve... Hauts résolution 1530%200 
f € StaicT ent Dsabled Nombre de généraions: StabicT ext Disabled 
Compteur/K 55 20 76 300 15303200 
ee € et Pons EdiT ed Disabiod Pourcentage de vivanis: 
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[3 
LS 


EX 
D 
En passant de l'Apple // au 
Macintosh, le Basic de Microsoft 
a conservé les caractéristiques de 
son instruction standard de saisie 
au clavier ; de fait, l'instruction 
INPUT n'est pas plus 
performante aujourd'hui qu'elle 
ne l'était jadis. 

Certes, les “évolutions Mac”, du 
type EDIT FIELD ou autres 
EDIT$, apportent un plus 
incontestable, mais ne permettent 
pas de contrôler la saisie en 
fonction du type de données 
attendu. Par ailleurs, elles ne se 
prêtent guère aux opérations de 
saisie “intensive”, car toute 
correction de frappe impose une 
utilisation alternative de la souris 
et du clavier... 


Dans ses précédents numéros, 
Pom's vous a souvent proposé 
des solutions aux problèmes de 
saisie en Basic, sous forme de 
routines en assembleur ou en 
Applesoft, à des niveaux de 
complexité variés. Dans ce même 
esprit, nous vous présentons ici 
un exemple de routine Basic que 
vous pourriez intégrer dans vos 
programmes dès lors que la 
frappe y joue un rôle important. 


Principes 
d'utilisation 


Les données sont saisies par 

sous-ensembles correspondant à 

des tableaux de variables (par 

exemple, un tableau pour toutes 
les informations à saisir en un 
même écran). L'affichage doit 
tou jours se faire avec une police 
non proportionnelle afin de 
permettre des déplacements 
corrects sur une ligne de saisie 

(voir plus loin). 

Chacune des données est en outre 

identifiée par : 

- un libellé précisant le contenu 
de l'information à fournir et les 
coordonnées horizontale et 
verticale du point à partir 
duquel doit commencer l'affi- 





chage du libellé (ces coordon- 
nées sont exploitées par une 
instruction MOVETO) ; 

° la position du point à partir 
duquel débutera la saisie 
(coordonnées horizontale et 
verticale) ; 

+ le nombre maximum de 
caractères autorisé pour la 
saisie de cette donnée ; 

+ letype de la donnée. 


Ce dernier paramètre peut prendre 
les valeurs suivantes : 


* 1 pour indiquer une donnée 
alphanumérique. La routine 
acceptera alors la frappe de tout 
caractère de code ASCII 
supérieur ou égal à 32, les 
guillemets, la virgule, les 
deux-points et le point-virgule 
étant toutefois remplacés par 
un point, afin d'éviter les 
problèmes d'exploitation ulté- 
rieure des informations 
entrées. 

*_2 pour une donnée numérique. 
Ne sont alors acceptés que les 
chiffres, les signes "+" et "-", 
et le point décimal (la frappe 
d'une virgule est aussitôt 
transformée en point). 

+ _3 pour indiquer une date. Ne 
sont alors acceptés que les 
chiffres et la barre de fraction 
"/". La date doit normalement 
être saisie sous la forme 
JJIMM/AA mais, si vous 
rentrez 1/1/86, par exemple, la 
routine complètera elle-même 
pour obtenir 01/01/86. De 
plus, un contrôle est effectué 
sur la valeur de JJ (inférieure à 
32) et sur celle de MM 
(inférieure à 13). 


La routine utilise quatre touches 
pour permettre les déplacements 
sur une ligne de saisie ou d'une 
ligne à l'autre à l'intérieur d'un 
tableau. 
+ RETURN permet de passer à 
la ligne suivante ou à la suite 
du programme s'il s'agit de la 
dernière ligne. En outre, cette 
touche valide la saisie en affectant 


ROUTINE DE SAISIE 


à une chaîne de caractères tous les 
caractères qui se trouvent à la 
gauche de l'endroit où est entré 
RETURN (si vous tapez 
RETURN à l'intérieur d'une 
ligne de saisie, vous annulez la 
partie droite de la frappe). 
Par ailleurs, si RETURN est la 
seule touche que vous frappez en 
tête de ligne, vous passez à la 
suivante tout en validant sans le 
modifier le contenu de la ligne. 
Cela vous sera notamment utile si 
vous vous déplacez à l'intérieur 
du tableau pour le modifier. 
* Lorsque vous êtes au début 
d'une ligne (sauf la première.) 
et que vous n'avez encore entré 
aucun caractère, la frappe de 
ENTER (la touche qui se trouve 
juste à droite de la barre d'espace) 
vous permet de retourner au 
début de la ligne précédente. Ceci 
reste valable même lorsque des 
caractères sont affichés sur la 
ligne (modification d'une saisie 
antérieure), car c'est l'absence de 
frappe et non l'absence d'affi- 
chage qui est testée. 
° Sur une ligne, la frappe de 
“"Backspace” (en haut et à 
droite du clavier) permet de 
reculer le curseur (matérialisé par 
un signe _ ) d'un caractère. Les 
caractères situés alors à droite du 
curseur ne sont pas perdus, 
même si vous modifiez l'un de 
ceux qui les précèdent, dès lors 
que vous ramenez le curseur à 
l'extrémité de la ligne, au moyen 
de la touche décrite ci-dessous, 
avant de taper RETURN. 
° Toujours sur une ligne, la 
frappe de la touche de 
tabulation permet de déplacer le 
curseur vers la droite et de 
restituer les caractères sur 
lesquels vous étiez préalablement 
passé avec la touche Backspace. 


Principales 
variables utilisées 
par la routine 


nd% : nombre de données 
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EN BASIC 


(lignes) à saisir. 

zc$(i) : ce tableau contient les 
données saisies en sortie de la 
routine. Chaque élément du 
tableau correspond à une ligne. 
tt% : si cette variable vaut 0, elle 
indique une première saisie. Dans 
le cas contraire, il s'agit de 
modifier un tableau précé- 
demment entré. Les valeurs 
initiales doivent alors être 
basculées dans zc$(i) avant 
l'appel de la routine. 

1i$(i) : contient les libellés à 
mettre en regard des données à 
saisir. 

lh%(i) et 1v%(i) contiennent les 
coordonnées horizontales et 
verticales des libellés. 

zh%(i) et zv%(i) : coordonnées 
horizontales et verticales des 
points de départ de chaque ligne 
de saisie, 

I1%(i) : longueurs maximales 
des données. 


Gérard Michel 


ty %(i) : types des données. 
pc% : position du curseur sur la 
ligne (vaut 1 pour le début de la 
ligne). 

1% : nombre de caractères entrés. 
te% : vaut O si aucun caractère 
n'a été frappé. 

dd®% : ce paramètre est fixé à 7. 
Il correspond à la valeur qu'il faut 
ajouter ou retrancher à la 
coordonnée horizontale d'un 
MOVETO pour obtenir un 
déplacement équivalent à la place 
occupée sur l'écran par un 
caractère en police Monaco 9 
points. 

d% : indique la coordonnée 
horizontale du prochain caractère 
à saisir. 

Æ : reçoit le caractère frappé. 

c$ : chaîne tampon ‘archivant" 
les caractères avant leur validation 
par RETURN et leur affectation à 
zC$(i). 


K$ : contient le caractère sous le 


curseur et les caractères qui se 
trouvent à sa droite, en cas de 
retour en arrière. 


Programme de 
démonstration 


Il permet de saisir deux tableaux, 
l'un de 4 variables et l'autre de 3. 
Chaque tableau saisi est alors 
affiché pour contrôle. 

En mettant à 1 la valeur de tt%, 
vous pouvez ensuite modifier 
votre première saisie pour ces 2 
tableaux. 


Cet exemple très "dépouillé”" vous 
aidera simplement à analyser la 
façon dont vous pourrez appeler 
la routine de saisie dans vos 


propres programmes. a 





Programme de 


mme 
depart : 


JE 
el 


démonstration 


" Initialisation et appels de la routine 
OPTION BASE l:tt3=-0:n1%=1:DIM svS$S(2,4 
) 
" Définition des libellés du premier tab 
leau (premier écran) 
CLS :DATA 4,LIBELLE 1,LIBELLE 2,LIBELLE 
3, LIBELLE 4,50,50,50,80,50,110,50,1 


40 

! Paramètres des données du premier tabl 
eau 

DATA 130,50,15, 1,130,80,6,2,130,110,8,3 
,130,140,50,1 

" Définition des libellés du second tabl 
eau 

DATA 3,SUITE 1,SUITE 2, SUITE 3,100,100, 
100,130,100,160 

! Paramètres des données du second table 
au 

DATA 180,100,20,1,180,130,10,2,180,160, 
8;3 


! Début du programme de démonstration 
! Saisie des deux tableaux, modification 
des mêmes tableaux et fin du progra 


IF n1$%>2 THEN tté=tt$#+1:RESTORE:n1%-1 
" Préparation de la modification 

IF tt$>l THEN END 

GOSUB lecture:CLS:IF tt$-1 THEN FOR i 
=1l TO nd$:2c$(i)=sv$ (n1$%,i):NEXT 

GOSUB saisie:CLS:FOR i-1 TO nd?$:MOVET 
O 10,50+30*(i-1) :PRINT li$(i)" : "2 
c$(i) :NEXT:PRINT:PRINT:INPUT 2$ 

FOR i=1 TO nd#%:svS$S(n1%,i)=2c$(i) :NEXT: 
* sauvegarde des données saisies 

nl%=n18%+1:GOTO depart 

" Lecture des libellés et des paramètres 

lecture: 

READ nd%:FOR i=1 TO nd$:READ li$(i):N 
EXT:FOR i=1 TO nd$:READ 1h%(i),1v3 
(i) :NEXT 

FOR i=1 TO nd$:READ zh%{(i),zv%(i),11%( 
1),ty#%(i) :NEXT 

RETURN 


" Routine de saisie 

L 

saisie: 

" Police non proportionnelle en 9 points 
TEXTFONT 4:TEXTSIZE S:TEXTMODE 0 
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IF tt$3=0 THEN FOR i=1 TO nd%:z 


«2 c$(i)="":NEXT:! tt3=0 => sa 
isie 
LS FOR i=1 TO nd%:MOVETO lh#{i),1 
v$(i) :PRINT liS(i)" : ";:M 
OVETO zh#(i),zv$(i) :PRINT 
zcS(i});:NEXT 
FOR i=1 TO nd%: '" Boucle de saisie des 
variables 
debut : 
" Initialisation des variables pour la s 
aisie 


d$=zh# (i) :zv$8-2v% (i) :MOVETO d%$,zv$:dd%= 
7:kS=2c$(i) :c$=2c$(i) :18=LEN(cS$) :pc 
8=-1:11%-118(i):ty3=-ty$(1i) :te3=0 

" Affichage du curseur et attente d'un c 
aractère au clavier 


100 PRINT "_", :MOVETO d$-dd%,2zv$:PRIN 
T k$S;:MOVETO d3%-dd3%,zv$:2S$S=INKEYS 
:IF 2$="" TAEN 100 

c$=ASC(z$):IF c$=13 AND te$-0 THEN PR 
INT c$::GOTO fin 


IF c$=3 AND te3%=0 THEN IF i>l THEN i- 
1i-1:MOVETO d$-dd#,zv$:PRINT cS" "; 
: GOTO debut ELSE BEEP:GOTO 100 

te$t=1: " Un caractère différent de RETUR 
N (13) ou ENTER (3) est frappé 

" c$=8 => en arrière 

tus: processing j0 

IF c%=8 AND pc$=1l THEN BEEP:GOTO 100 

IF c$3-13 THEN c$=LEFT$S(c$,pc$-1) : MOVE 
TO d$-dd$,zv%:PRINT SPACES(113%-pc 
8+2) ;: GOTO fin 

IF c$-9 AND pc$=1l$+1 THEN BEEP:GOTO 1 
00 

IF c$%=9 THEN PRINT SPACES(113-pc$+1l); 
:MOVETO d%-dd3%,2v$:PRINT MID$S(c$, 
pc$,1l);:GOTO 300 

IF c$=-8 THEN 200 

IF pc$-11$%+1 THEN BEEP:GOTO 100 

IF c$-34 OR c$=44 OR c$3=58 OR c$-59 TH 

z$=".":c$-46 

ON ty GOTO alpha,num,date 

alpha: 

IF cé<32 
e 

num: 


THEN BEEP:GOTO 100 ELSE suit 


A propos de ‘-> Corbeille” 





IF c$=46 OR c$=45 OR c$=43 THEN suite 

IF c$>57 OR c$<48 THEN BEEP:GOTO 100 
ELSE suite 

date: 

IF c$<47 OR c3>57 THEN BEEP :GOTO 100 

suite: 

IF k$S<>"" THEN PRINT SPACES (113-pc3); 

k$=" ":MOVETO d%-dd$,2zv$:PRINT KkS$S;:MO 
VETO d$-dd%,zv$:PRINT z$;:d?%-d$+dd 
8:pcè-pci+l:IF pc?i=18%+2 THEN 1%=18+ 
l:cS$=c$+z$S:k$S="":GOTO 110 

MIDS$S (c$,pc$-1,1)=2$:kS$S=MIDS(c$,pc3%,1l) 

110 MOVETO d$-dd%,zv#%:GOTO 100 

200 pc3-pc3-1:IF pc3<13 THEN MOVETO d% 
-dd3%, z2V3:kS$S=RIGHTS (c$,1%-pc$3+1):PR 
INT k$;:GOTO 210 

kS=MIDS$(cS$S,pc3,1l) 

210 MOVETO d%-2#*dd#,zv%:d?%-d$-dd#:GOTO 
100 

300 pc%=pc$+1:k$=-MIDS (c$,pcñ, 1) :d$=d%+d 
d3:GOTO 110 

fin: 

IF ty$3<>3 OR c$="" THEN bcl 

" Contrôle de conformité de la date sais 
ie 

FOR j-1 TO 3:IF MID$(cS,j,1)<>"/" THE 
N d0 

IF j<3 THEN c$="0"+cS:j=3 

d0: 

NEXT:IF MIDS(c$,3,1)<>"/" OR VAL(LEF 
T$(cS$,2))<1 OR VAL(LEFTS(cS,2)}>31 

THEN BEEP:zc${(i)=-c$:GOTO debut 

FOR j=4 TO 6:IF MID$(cS, j,1)<>"/" THE 
N dl 

IF j<6 THEN c$-LEFT$S(c$,3)+"0"+MIDS(c 
$,4):j=6 

dl: 

NEXT:IF MIDS$(cS,6,1)<>"/" OR VAL (MID 
$(c$,4,2}}<1 OR VAL(MIDS(c$,4,2))> 
12 OR LEN(c$S)<>8 OR MIDS{(cS,7,1)=" 
/" OR RIGHTS(cS,1)="/" THEN BEEP: 
zc${i)-c$:GOTO debut 


cl: 
" Affectation de la variable et suite... 
zc$(i)=c$:IF c$="" THEN MOVETO d?-dd#, 


ZV#:PRINT " "; 
NEXT : RETURN 


Avec le nouveau système (disquette 22), la fenêtre inférieure de cet accessoire (Pom's 21) est partiellement 
masquée par la fenêtre de sélection des fichiers, plus grande qu'avec les versions antérieure du système. Ceci 
n'empêche pas ce ‘mini-programme’ de fonctionner mais fait un peu ‘désordre’. Pour que tout rentre dans 
l'ordre, il faut remplacer la ligne : 


MOVE.L #$00280014,-(SP) par MOVE.L #$00200014,-(SP) 
et la ligne : 
RectangleFr DC 198,20,281,368 par RectangleF DC 252,20,335,369 


EE EEE 
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Pour la souris 


Qui n'a pas sous la main une 
vieille radiographie ? Ce support 
anii-statique semble être l'idéal 
pour les évolution de la souris, 
Moins de risques de voir l'animal 
se salir ! 


Commande, Option, 
Majuscules ? 


Pour savoir quel est l'état de ces 
touches, ainsi que ‘verrouillage 
majuscules’ depuis un pro- 
gramme Basic, il faut lire le 
contenu des adresses $17A et 
$17B: 


+ Iebit 7 de $Si7A est à 1 si la 
touche ‘Commande’ est 
enfoncée ; 

lebitO de $17B està 1 si l'une 
des touches ‘Ma juscules’ est 
enfoncée ; 

le bit 1 de $17B est à 1 si la 
touche ‘Verrouillage majus- 
cules’ estenfoncée ; 

le bit 2de $17B est à 1 si l'une 
des touches ‘Option’ est 
enfoncée. 


Commande 


S17A LS LS Le Le L2 1 Lo) 


28 64_32 
5178 AGAUAANN 


Option 
Verrouillage Majusc. 
Majuscules 






Dans un programme Basic, on 
pourrait donc trouver des lignes 
telles que : 


IF PEEK(&h17A) AND 
128 THEN Commande 
IF PEEK(£h17B) AND 1 

THEN Majuscule 
IF PEEK(£6h1?7B) AND 2 
THEN Verrouillage 
IF PEEK(£&h17B) AND 4 
THEN Option 


ou encore, si l'on veut savoir si 


les touches ‘Option et 
‘Majuscule’ sont enfoncées 
simulumément : 


IF PEEK(£h17B}) AND 5 
THEN Option.Ma). 


NDLR. : si vous programmez 


en assembleur, ces deux adresses 
correspondent à Key Mäp+6 et 
KeyMap+7. 
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une rubrique ouverte aux lecteurs 


LaserAstuces 


Pour éviter de gâcher une feuille 
de papier et de l'encre avec 
l'auto-test à l'allumage .le 
l'appareil, il suffit de retirer 
l'alimentation papier au moment 
de l'allumage et de la remettre 
lorsque le témoin vert ne clignote 
plus. 








Titres encadrés 
avec MacPaint 


Mettre un tire dans une zone 
comportant un décor n'est pas 
une sinécure avec M2cPaint. Une 
première solution revient à entrer 
le texte une fois le décor créé. L.e 
détourage du texte ainsi obtenu 


peut êrre jugé trop important : 





La seconde solution, bien moins 
lisible, consiste à taper le texte en 
dehors du cadre puis à l'y placer 
avec le 1a8s0 : 





La procédure indiquée ci-dessous 
permet de construire, certes au 
prix de quelques manipulations, 
un détourage à la fois lisible et 
moins brutal que le détourage 
rectangulaire présenté en 
premier: 





Première étape : activer la 
grille, si possible avant de 
dessiner le cadre. Cela nous 
pennenra de meilleurs cenDages. 


Seconde étape : taper le titre en 
dessous du cadre, le sélectionner, 
le copier, le coller (préserve 
l'original qui servira plus tard), 
demander une fois le contour et le 
placer avec le lasso dans le cadre. 


Troisième étape : activer la 
Joupe, choisir la peinture biariche, 
et verser la peinture sur le bord 
extérieur du texte : 





L'utilisauon de la loupe nous 
perinet de verser la peinture, 
exactement sur le trait extérieur, 
sans difficulté. 


Quatrième étape : se déplacer 
avec la main pour Continuer la 
même opération de blanchissage 
(2 fois ici) sur le reste du texte, 
qui n'est pas forcément jointif. Le 
résuliat est alors : 





Cinquième étape : il ne reste 
plus qu'à y placer avec le lasso le 
texte qui était resté au naturel 
sous le cadre, ce qui nous donne 
le résuitat final présenté plus 
haut. 


Modifier «System» 


On ne peut normaiement modifier 
le nom du fichier ‘System’. Pour 
y parvenir, dupliquez-le et 
modifiez alors si vous le voulez le 
nom de ‘Copie de System’ qui 
sera, Li, modifiable jusqu'à sa 
première utilisation sous le nom 
de ‘System’. 

L'intérêt de faire porter à un 
fichier ‘System un nom 
différent, c'est que cela vous 
pennet de lancer un programme 
placé sur une disquette 
comportant son propre ‘System 
(rebaptisé) à partir d'une 
disquette ayant un ‘System’ 
différent, sans activer 
automatiquement le système du 
programme. 


Exemple : la disquette Multiplan 
comporte son système normal, 
mais nous souhaitons travailler à 
l'écran à partir d'un système ne 
comportant que les polices 


minimales, pour voir plus de 
lignes et de colonnes à l'écran. 
Au moment de lancer 
l'impression, nous réactivons le 
système normal, afin d'obtenirde 
jolis caractères. 


On ne copie pas ! 

Pour interdire les copies d'écran 
- SuT papier ou sur disquette - 
avec ia séquence de touche 
“Commande/Ma juscules/3 ou 4” 
1 faut utiliser : 

PORE 6h2F8,0 

Notons que ceci interdit aussi 
l'éjection des disquettes avec 
“Commande/Majuscules/1 où 2”. 


Pour de nouveau autoriser ces 
fonctions : 


POKE £€h2Fr8,1 


Passage à Excel 


Quand on charge des tableaux 
Multiplan dans Excel, une fenêtre 
de dialogue peut apparaître, 
demandant si Ion souhaite avoir 
seulement le total des erreurs : ce 
n'est pas la peine de demander 
plus de détail ; on ne pourra de 
toute façon rien y faire. 

Les erreurs proviennent par 
exemple de fonctions telles 
Nbiter() ou Deita() qui, dans 
Excel, sont remplacées par des 
paramètres de calcul itératif placés 
dans des fenêtres, 


De même, les format d'Excel 
sont plus riches, sauf en ce qui 
conceme le fonnat Histogramme 
qui n'existe pl s, probablement à 
cause de la facilité de réaliser des 
graphiques avec Excel. 


Si l'on traduit souvent des 
tbleaux de Multiplan vers Excel, 
le mieux est de construire des 
macros qui automatisent autant 
que possible les conversions les 
plus fréquentes (par exemple 
pour les formats). 





‘Bip’ ou pas ‘Bip” 

Pour mettre en ou hors fonction 
le haut parleur depuis un 
programme, il faut ‘POKer’ 
respectivement 1 ou 0 à l'adresse 
$260 

Quelqu'un connaî-illa méthode 
pour faire varier simplement le 
niveau sonore ? 








SORT MENU : un utiliaire de ti de menus ; 

PAINT MOVER : copier et manipuler les 
images MacPaint (uniquement sur 
S12KoouPlus}: 

ACCESSOIRES DE BUREAU 
*MOCK' : mini traitement de texte, 
grapheur et terminal ; 

CONVERT DAM : pour passer de DA Mover 
à ForvOA Mover; 

FEDIT : un éditeur de blocs et de fichiers (en 
anglais) ; 
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NN 
NN | si) 
à fl 


“&L DISQUETTE MAC À 


IDLE : pour préserver votre écran durant de 
longs vaiëments ; 

MULTISCRAP : accessoire permettant de 
disposer de plusieurs album à la fois ; 

C CHECK : pour vérifier les niveaux de 
parenthèses en langage ‘C'; 

HEX CALC : l'indispensable calculatrice 
hexadécimale ; 

MEGAROÏDS : un jeu d'adresse : 

MEM WINDOW : permet de lister la 


mémoire du Mac. 
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Vos impôts avec 
Maultiplan sur 
Macintosh 


La feuille de calcul Multiplan 
listée pages suivantes et 
destinée à l'Apple // est 
compatible avec Multiplan 
sur Macintosh. Il faut : 


+ saisir la liste avec un 
traitement de texte 
quelconque (MacWrite, 
Word, éditeur MDS) ; 

* remplacer la première 
ligne (ID;PMP) par 
ID;:PMP;N; 


* sauvegarder le tout sous 
format TEXTE ; 

* charger le fichier résultant 
depuis Muitiplan. 


Une version spécialement 
modifiée pour le Macintosh 
est disponible sur la 
disquette Mac 23. 


DISQUETTE MACINTOSH 23 


Cette nouvelle disquette est accompagnée de la version “Run Time” du Basic Microsoft 2.10, qui ne 
compoite que l'interpréteur. Ceci perinettra à ceux d'entre-vous qui ne disposent pas du Basic d'utiliser les 
programmes publiés dans Pom's. Cette version ne remplace pas le Basic Microsoft tel que l'on peut le trouver 
dans le commerce (elle pennet seulement l'exécution des programmes), mais a l'avantage de prendre moins de 


place sur les disquettes. 


Vous trouverez aussi une version 
‘Mac’ de la feuille de calcul 
Multiplan listée pages 
suivantes, autorisant un calcul 
simple du montant de vos impôts. 


Keeper est un petit utilitaire qui 
garde le Finder en mémoire, 
réduisant ainsi le temps de retour 
au bureau à mois d'une seconde 
(ne fonctionne pas sur un 
Macintosh 128K0). 


Et, bien sûr, les fichiers et 
programmes liés aux articles 
publiés dans ce numéro. 


é Fichier Edition Sélection Format Options Calcul 


Pret] 


il 


e IMPOTS e 


: DECOTE LIGNE D: : 


LUS-VALUES TX PROPORT. LIGNEF:: 


JMINORATION 1986 : : 


4POT ‘IR APRES MINORATION 1986:: 19 
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IMPÔTS 


MULTIPILAN 


uite logique du pensum 
que constitue chaque 
année la déclaration de 
revenus, voici le 
nécessaire pour calculer sim- 
plement le montant de vos impôts. 


Nous avons le privilège d'avoir 
un Code Général des Impôts 
détaillé (euphémisme !). Le 
résumer dans une feuille de calcul 
d'Apple n'entre heureusement pas 
dans nos ambitions : il nest 
question ici que d'un calcul 
utilitaire intégrant les revenus de 
la grande majorité des 
contribuables. La présente feuille 
de calcul est le reflet de la fiche de 
calcul facultatif, pages 9 à 12 de 
votre notice. 


Les calculs 


Pour la détermination de l'impôt, 
il a été tenu compte des limites, 
- déductions et abattements en tous 
genres avec leurs limites 
inférieures et supérieures, des 
éventuels ‘abattements spéciaux’, 


du plafonnement du quotient 
familial, des éventuelles décotes, 
de la minoration de 3 % 1985, du 
1 % sur le revenu des capitaux 
mobiliers et autres avoirs 
fiscaux. 

Les lecteurs d'Outre-Mer seront 
déçus : il n'a pas été possible d'y 
intégrer le plafonnement D.O.M. 


Comment faire ? 


Le fichier listé dans ces pages est 
en forrnat symbolique. Si ne vous 
disposez pas de la disquette 
d'accompagnement, vous devrez 
saisir le-dit fichier à l'aide d'un 
traitement de texte, le sauvegaider 
en fonnat TEXT, le relire sous 
Muitiplan en précisant format 
symbolique. Cette feuille de calcul 
occupera 99 % de la mémoire 
disponible sur un Apple // 64 Ko, 
et 57 % sur un 128 Ko. 


De la ligne 1 à la ligne 64, vous 
trouverez une copie de votre 
déclaration de revenus : il vous 
suffit de recopier celle-ci dans 


CR dt += —— ++ ————— + mm ++ + 
1-1 1 2 3 6 7 8 s 10 11 l 
| 41 5) TRAITEMENTS, SALAIRES ! 
| 42 KR 120.000 KC 0 KE 7.500 KG 40 KH ! 
| 43 LA 117.000 LC 0 LE 0 LE 12.09 LO 30 LH ! 
| 44 MR 0 M 0 mm O0 ME 0 MG 0 MH t 
1 45 NA 0 NC O0 NO O NE 0 NG CO HH ! 
| 46 PA O PC 0 PC 0 PE 0 PG O0 PH ! 
| 47 PA 6 R 0 F8 0 AE 0 RG G AH ! 
| 48 SA D SC 0 35 0 SE 0 so 0 SH ; 
t 48 TA 8 TC 0 TD 0 TE oO 76 O TH ! 
|! 56 UR D UE ü (© Q VE 0 UG © UH ! 
| SU UR s UC 0 to O0 dÆŒ 0 UG 0 UH ; 
EE PE de dt CS eat +t + 
TE +4 Dem dt dt ++ 
12: 1 4 11 9 19 11 12 13 14 ; 
1 56 AR S,670 8 0 11123 COMPLENENTAIRE if 0 ! 
t S7 BA 0 BB 0 !1124 CREDITS AUOIAS FISCAUX 0 ! 
! $8 CA O0 CB 0 11125 Par OÙ CES ! 
mm dt Le mnt St cmt at es dt dt ——— ++ 
SCRTIE: Tarae Fichier Paga Options 

roisissez une ePtion ou frappaz le caractere de commande 

-{25C14 L<-3)C+L{-22X-LC-19C 378 Libre Aultipian: fiPOT,D2 


Christian 
Piard 


Multiplan. 

Par exemple, vous avez déclaré à 
votre percepteur un salaire 
imposable de 100 000,00 F que 
vous avez inscrit dans le +5, ligne 
KA ; il vous suffit de reporter 
cette somme dans la feuille de 
calcul, cellule L42C2, celle qui 
vient juste après la mention KA. M 
en va de même pour l'ensemble 
des sommes que vous avez 
portées sur votre déclaration. 
Ligne 125, vous devriez alors 
trouver le montant de l'impôt dû, 
les calculs intermédiaires se 
faisant dans les lignes 66-123. 


Attention, au hasard de vos 
essais, pour effacer un montant, 
mettez O0, mais ne laissez pas la 
cellule à blanc : les abattements et 
plafonnements deviendraient 
fantaisistes.… 


Quelques précisions 


Seul un fiscaliste est capable de se 
retrouver dans les inextricables 
méandres de la législation. Cette 
feuille de calcul a été testée dans 
bien des cas, les planchers et 
plafonds vérifiées maintes fois 
mais, dans ce domaine, on ne 
peut être exhaustif ; il reste certai- 
nement des cas où l'interaction de 
telle condition avec telle autre 
pose un problème. 


Le but de cette feuille est utilitaire, 
n'y cherchez pas une finesse de 
programmation confmant à l'Ait. 
L'utilisateur ne peut d'ailleurs être 
que modeste devant les auteurs de 
Muitiplan, auteurs que certains 
appellent les ‘Paganinis de 
l'infornatique’. 

Des artistes quoi ! 


G 
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Fichier 
‘IMPOTS’ 


ID;PMP 
F;Kk;DG0G10 
F;N1 1 3 
F:#3 3 3 
F;:85 5 3 
F;N7 7 3 
F;N9 9 3 
F;N11 11 3 
F;N13 13 3 
F;:FI0C;C1 
F;FI0C;CS5 
F;:FI0C;C9 
F;FI0C;C11 
F;:FI0G;C2 
F;r10G;C3 
F;:FI0G;C4 
F;:F10G;C6 
F;FI0C;c7 
F;:F106G;C8 
F;F10G;C10 
F;FI0G;C12 
F;:FI0G;C13 
F;F10G;C14 
B;Y125;Xx15 
C;Y1;X1;:K"SITUATION DE 
FANILLE (N=1/C=2/Dx=3 
/=V=4)" 
F; FCOR 
F;X2;FCOR 
F:X3;FCOR 
F;'X4; FCÛR 
F;:X5;FCOR 
F;:X6;FCOR 
C;X8;K1 
C;Y2;:X1;:K"INVALIDE (0/1 


F;:X2;FCOR 

F;X3;FCOR 

S':X4:F'COR 

F;X5;FCOR 

F;X6;FCOR 

C;X7;K"pP" 

C;X8;:K0;G 

C;Y3;8;R2;C8 

C;:Y4;53 

C'Y5;s$s 

C;:Y6;S 

C'Y7:8 

c;Y8;8 

C;x9;s 

C;Y3;X1;/K"EPOUSE INVALI 
DE {0/1)" 

F;FCOR 

F;X2;FCOR 

F;X3;FCOR 

F;X4;:FCOR 

F':X5;F'COR 

F;:X6;FCOR 

C;X7;K"A" 

C;Y4;:X1;:K'ENFANTS" 

F;FCOR 

F;X2;TCOR 

F;X3;5C0R 

F;X4:FCOR 

F;:X5;FCOR 

F;:X6; FCOR 

C;X7;K«"F" 

C;Y5;X1;: K"ENFANTS INVAL 
IDES TITULAIRES CART 
g” 

F;FCOR 

F;X2;:FCOR 

F;X3; FCOR 

F;X4;:FCOR 

F;X5;FCOR 

F;X6;FCOR 

C;X7;K"G" 

C;Y6;X1; K'ENFANTS INVAL 
IDES” 

F;FCOR 

F;X2;FCOR 

F;X3;FCOR 

F;X4;FCOR 

F;X5;FCOR 

F:X6;FCOR 

C;X7;K°H" 

C;Y7;X1;:K'ENFANTS CELIS 
ATAIRES RATTACHES” 


F;FCOR 

F;X2;:FCOR 

F;X3;FCOR 

F;:X4;: FCOR 

F; X5;F'COR 

F;X6; FCOR 

C;X7;K"J" 

C;Y8;X1;:K"ENFANTS MARIE 
S RATTACHES”" 

F;FCOR 

F;X2;FCOR 

F;:X3;FCÛR 

F;X4:FCOR 

F;X5;F°CÛR 

F''X6;:FCOR 

C;X7;K°"N°" 

C;Y9;X1;K"INVALIDES SOU 
S LE TOIT” 

F';FCOR 

F;X2;FCOR 

F;X3;FCOR 

F;X4;:FCOR 

F;X5;:FCOR 

F';X6;:FCOR 

C;X7;K°R" 

C;Y10;/X1;K"AGE”" 

F;F'COR 

F;X2;FCOR 

F;:X3;FCOR 

F;X4:FCOR 

F;X5;FCOR 

F;X6;:FCOR 

C;X8;K30 

C;Y11;:X2;K'"1) REVENUS D 
ES VALEURS ET CAFITA 
UX MOBILIERS" 


C;Y12;X11;:K"S" 
C;X12;K0 
C;Y13;X11;:K"0" 
C;X12;Kk0;G 
C;Y14;:S;:R13;C12 
C;Y15;s 
Cc;Y16;s 
c;Y17;5s 
C;Y18;S 
C;:Y14;:X11;:K"Vv" 
C;:Y15;:K°N" 
C;Y16;K"Xx" 
CyY17:R°Y" 
Crr18;K"2z" 
C:Y19;:X2;:K"2) REVENOS F 
ONCIERS" 
F;FCOL 
F;X3;FCOL 
F;X4;:FCOL 
F;X5;FCOL 
F;:X6;:FCOL 
F;X7;F'COL 
F;X8;FCOL 
C;Y20;X9;K"A" 
C:X10;K0 
:X11;:K"8" 
C;X12;kr0 
F;FIOR 
C:Y21:X11:K"D" 
C;X12;K0;G 
F;FIOR 
C;Y22;S;R21 
F;FIOR 
C;X9;:K"M" 
C;X10;K0;G 
C:X11:K°N" 
C;Y23;X2;K"3) REVENUS D 
ES PROFESSIONS NON S 
ALARIEES" 


C;XS;K"KB" 
C;X6;K0 


C;X7;K"KC" 
C;X8;K0 

C;X9; K”KD” 
C;X10;Kk0 
C;:X11;:K°KE" 
C;X12;K0 
C;Y25;X3;K"LA" 
F;FI0C 
C;X4;:K0;G 
C;Y26;S;R25;C4 
C;Y28;s 
C;Yx29;s 
Cc;Y31;s 
C;Y32;s 

Cc;Y33;5s 

C;Y34;5s 
C;Y25;X5;K°"LB" 
C;:X6;K0;G 
C;Y26;S;C6 
C;Y27;5S 
C;Y28;5 
C;Y29;Ss 
C;Y30;s 
C;Y31;S 
C;Y32;s3 
Cc;Y33;s 
C;Y*25;X7;K"LC" 
C;X8;:K0;G 
C;Y26;:s8;C8 
C;Y27;3 
C;Y28;S 
C;Y29;8 
Cc;x*30;s 
C;Y31;s5 
C;x32;s 
c;Y33;8 
C;Yx25;X9;K"LD" 
C;X10;Kk0 
C;X11;K"LE" 
C;X12;K0;G 
C;Y26;3;c12 
C;Y27;s 
C;xY28;8 
C;Y29;8 
C;Y31;5 
C;Y32;s 
C;Y33;s 
C;Y34;5s 
C;:Y26;:X3;K"MA" 
F;FI0C 
C;X5;K°"NB" 
C;X7;K"MC" 
C;X9;K"MD” 
C;X10;:K0;G 
C;:Y27;S;:R26;C10 
C;Y28;Ss 
C;Y29;S 
Cc;Y30;S 
C;Y31;s 
C;Y32;s 
c;Y33;s 
Cc;rY35;S 
C;:Y26;X11;K°"MNE" 
C;Y27;X3;K°NA" 
F;FI0C 

C;X4;:K0 
C;X5;K°"NB" 
C;X7;K°NC" 
C;X9;:K"ND" 
C;X11;:K°"NE" 
C:Y*28;X3;K"PA" 
F;FI0C 

CXS KP" 
C;X7;K"PC" 
C;X9;K”"PD" 
C;X11:K"PE” 
C;Y29;X3;K"RA" 
F;FI0C 
C;X5;K"R8" 
C;X7;K"RC" 
C;X9;R"RD" 
C;X11;:K°7RE" 
C;Y30;X3;K"SA" 
F;FI0C 

C;X4;:K0 
C;X5;K"SB" 
C;X7;K"SsC" 
C;X9;K"SD" 
C;Y31;X3;K"TA" 
F;FIOC 
C;X5;K"TB" 
C;X7;K"°TC" 
C;X9;:K"TD" 
C;XI11;:K°"TE" 





C;Y32;X3;K"UA" 
F;FI0C 
C;XS;K"U8" 
C;X7:R"0C" 
C;X9; K°"UD” 
C;X11;:RK'"UE” 
C;:Y33;X3;K"WA" 
F;FI0C 
C;X5;K°"WB° 
C;X7;K°WC" 
C;X9;K"WD” 
C;X11;:K°WE” 
C;Y34;:X3;K'"XA" 
F;FIO0C 
C;X7;K"XC" 
C;X8;K0 
C;:X9;K"320" 
C;X10;K0 
C;X11;:K"X£" 
C;:Y35;X7;K"YC" 
C;X8;K0 
C;X9;K"YrD" 
C;Y36;X2;K"4) PLUS-VALU 
ES DIVERSES ËÊT PROFI 
TS DE CONSTRUCTION” 
F;FCOL 
F;X3;FCOL 
F;X4;:FCOL 
F;X5;:FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X8;FCOL 
F;X9;FCOL 
F;X10;FCOL 
C;Y37;X1;:K°"AJ" 
C;X2;K0 
C;X7;K"AN" 
C;X8;K0 
C;X9;K"AN" 
C;X10;K0 
C;X11;K'AP" 
C;X12;K0 
C;Y38;X1;:K”"BJ" 
C;X2;Kk0 
C;X3;K"BK" 
F;FI0C 
C:x4;:K0;G 
C;Y39;S;R38;C4 
C;Y40;5S 
C;Y38;X7;:K"BM" 
C;X8;:K0;G 
c;rY39;s;c8 
C;rY40;S 
C;Y38;X9;:K"BN" 
C;X10;K0 
C;X11;:K°BP" 
C;X12;kR0 
C;:Y39;X3;K"CK" 
C;X5;:K"CL”" 
C;X6;K0 
C;X7;K°CM" 
C;X9;K"CN" 
C;X10;K0 
C;X11;K"CcP”" 
C;X12;K0 
C;Y*40;X3;K"DK" 
C;X5;K"DL" 
C;X6;K0 
C;X7;K°"DM" 
C;Y41;X2;K"5) TRAITEMEN 
TS, SALAIRES" 
F;:FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6; FCOL 
F;X7;FCOL 
F;X8;FCO0L 
d:X9;FCOL 
C;:Y42;X1;:K°KA" 
C;X2;K0 
C;X3;K"KC" 
F;FI0C 
C;X4;:K0;G 
C;Y43;S;R42;C4 
C;Y44;5 
C;Y45;5s 
C;:Y46:;5 
C;Y47;5s 
C;Y48;5 
C;Y49;5 
C;Y51;8 
C;Y52;s 
C;xY53;S 
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C;}'42;X5;K'"KD” 
C;X6;K0;G 
C;r*43;5;C6 
C;Y44;5 
C;}'45;S 
C;}'46;5S 
C;1'47;5S 
C;Y48;5 
C;Y49;5S 
C;Y*51;5s 
C;r52;58 
Cc;Y*53;s 
C;}'42;X7;K'"KE" 
C;X8;K0 
C;X9;K"KG"” 
C;:X10;K0 
C;X11;K"KE" 
C;X12;K0;G 
C;Y*43;8;c12 
C;Y44;5 
C;Y45;5 
C;Y46;5 
C;Y*47;5 
C;Y48;5 
C;Y49;5 
CxY50;s 
C;Y51;8 
C:Y52;5 
C;*53;s 
C;2'42;:X13;K"KJ”7 
F;FrI0C 
C;X14;K0;G 
C;Y43;S;C14 
C;Y44;5 
C;Y45;5S 
C;Y46;$ 
C;r*47;5 
C;Y*48;5s 
C;Y*49;5S 
C;Y*50;S 
C;Y*51;S 
Cc;Y*52;$S 
C'r53;:5 
C;Y43;X1;K"LA" 
C;X2;K0 
C;X3;K"LC" 
F;FI0C 
C;X5;K"LD" 
C;X7;K"LE" 
C;X8;K0;G 
C;Y44;:5;R43;C8 
C;x*45;S 
C;Y46;5S 
C;x*47;5S 
C;Y48;5S 
C;rY49;5 
.C4Y50:8 
CrYs51:s 
C'152;S 
C;x*53;s 
C;Y43;X9;K"1,G" 
C;X10;K0;G 
C;Y44;:5;C10 
C;Y45;5s 
C;Y46;5 
C;Y47;8 
C;Y*48;5S 
C;*49;Ss 
c;x50;s 
Cr*51;s 
C:Yx52:5 
C:Y53;5s 
C;Y43;X11;K"LN" 
C;X13;K"L.7" 
F;FI0C 
C;Y*44;:X1;:K"MA" 
C;X2;K0;G 
C;Y45;S;:R446;C2 
C;Y46;5 
C;Y*47;5S 
C;Y48;5S 
C;Y49;5S 
C;Y*50;sS 
c;Yx51;s 
c;Y52;s 
C:*53;S 
C:Y54;S 
C;Y44;:X3;:K"MC" 
F;lI0C 
C;X5;K"MD” 
C;'X7;K"ME” 
C,;X9;K"MG" 
C;X11;K"MEH" 
C;X13;K"MJ” 


F;FIO0C 
C;Y45;X1;K”NA” 
C;:X3;K"NC" 
F;FI0C 
C;X5;K"ND” 
C;X7;K"NE" 
C;X9,;K'"NG" 
C;X11;K"NE" 
C;X13;K"NJ" 
F,FI0C 
C;Y46;X1;K"PA" 
C;X3;K"PC" 
F;FI0C 
C;X5;K"PD" 
C;X7;K"PE" 
C;X9;K°PG" 
C;X11;K«"PH" 
C:X13;K"PJ" 
F;FI0C 
C;Y47;X1;K"RA" 
C;X3;K"RC" 
F;FI0C 
C;:X5;K"RD” 
C;X7;K"RE" 
C;X9;K"RG" 
C;X11;K"RKH" 
C;:X13;:K"RJ" 
F';FIO0C 
C;Y48;X1;K"SA” 
C;:X3:K"SC" 
F;FIO0C 
C;X5;K"SD" 
C;X7;K"SE" 
C;X9;K"SG" 
C;X11;K"S£" 
C;X13;K"SJ" 
F;FI0C 
C;Y49;X1;K"TA" 
C;X3;K"TC" 
F;FI0C 
C;X5;K"TD" 
C;X7;K"TE" 
C;X9;K"TG" 
C;X11;K"TE" 
C;X13;K"TJ" 
F;FI0C 
C;Y50;X1; K"UA” 
C;X3;K"UC" 
F;FI0C 
C;X4;:K0 
C;X5;K"UD" 
C;X6;K0 
C;X7;K"UE" 
C;X9;K"0G" 
C;:X11;K"Ug" 
C;X13;K"0J” 
F;FI0C 
C;Y51;X1;K"VA” 
C;X3:K"VC" 
F;FI0C 
C;X5;K"VD" 
C;X7;K"VE" 
C;X9;K"VG" 
C;X11;:K"VE" 
C;X13;:K"VIJ" 
F;FI0C 
C;Y52;X1;K'"WA” 
C;X3;K"NC” 
F;FI0C 
C;X5;K'"#D” 
C;X7;K"NRE" 
C,;'X9;K"RG" 
C;X11;:K"WE” 
C;X13;K°"WJ” 
F;FI0C 
CEYS9;X1;:K'XA" 
C;X3;K"XC" 
F;FI0C 
C;X5,;K"XD" 
C;:X7;K°"XE" 
C;:X9;K”XG" 
C;X11;K"XH" 
C;X13;K"XJ" 
F',;FI0C 
C;Y54; X1:K'YA" 
C;Y55;X2;K"6) CHARGES À 
DEDUIRE" 
F;:FCOL 
F;X3;FCOL 
F;X4;:FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;’X8;FCOL 





:Y56;X1;K"AA” 


AnnnNnnQnAann 


Ve Ve de 


C;X10;K0;G 
C;Y*59;S;R56;C10 
C;:Y56;X11;K"AP" 
C;X12;K0 
C;X13;K"AR" 
C;X14;K0 
C;Y*57;X1;K"BA" 
C;X2;K0 
C;X3;K"B8" 
F;FI0C 
C;X4;K0 
C;X5;K"BE” 
C;X6;K0 
C;X9;K"BR" 
C;X10;K0 
C;Y58;X1;K"CA" 
C;X2;K0 
C;X3;K"C8" 
F;FrI0C 
C;X4;:K0;G 
C;Y59;S;R58;C4 
C;YS58;X7;K"CP" 
C;X8;K0 
C;X9;K"CR" 
C;X10;K0 
C;X11;K"CS" 
C;X12;K0 
C;Y*59;X1;K"DA" 
C;X2;K0;G 
C;X3;K"D8B" 
F;FIOC 
C;Xx5;K"DE" 
C;X6,;K0;G 
C;X7,;K"DP" 
C;X8;K0;G 
C;X9;K"DR" 
C;Y60;X2;K"”7) CHARGES O 
UVRANT DROIT À DES R 
EDUCTIONS D'IMPOT” 
F;FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X3;FCOL 
C;Y61;X1;:K"GA" 
C;X2;K0;G 
C;Y*63;S;R61l;C2 
C;Y64;5 
C;Y61;X3;K"GB" 
S';FIO0C 
C;X4;K0;G 
C;Y62;8;C4 
C;:*63;s 
C;Y61;Xx5;K"GC" 
C;X6;K0;G 
C;Y62;8;Cc6 
C;Y*63;5S 
C;Y64;5 
C;'Y61;X7;K"GE" 
C;X8;K0;G 
C;:Y62;8;C8 
C;Y63;s 
C;Y64;5 
C;*61;X9;K"GP" 
C;:X10;K0;G 
C;Y62;8;C10 
C;x*63;8 
C;Y64;5 
C;Y61;X11;K"GS" 
C;X12;Kk0 
C;Y62;X1;K'"HA" 
C;X2;K0 
C;X3;K"KHEB" 
F;FI0C 
C;X5;K"HE" 
C;X7,;K"HP" 
C;X9;K"HR" 
C;Y63;X1;K"JA” 
C;X3;K"JB" 
F;FI0C 
C;X5;K”"JC" 
C;X7;K"JE" 


C;X9;R"JTP" 

C;Y64;X1;K"XA" 

C;X5;K"XE" 

C;X7,;K"XE" 

C;X9;K"XR" 

C;Y68;X2;K"REVENUS DES 
VALEURS ET CAPITAUX 
NOBILIERS” 

F;FCOL 

F;X3;FCOL 

F;,X4;FCOL 

F;Xx5;FCOL 

F;X6;FCOL 

F;X7;FCOL 

F;X8;FCOI, 

F;:X9;FCOL 

C;Y69;X2;:EIF(R[-56]C[+1 
0]>=1000,R[-56]C[+10 
J,0)}+R[-55]Cc[+10];K0 

F;FIO0R 

C;X4;EIF(R[-56]C[+8]>=1 
000,1000,0)>IF{R[-55 
JC[+8]>=5000,5000,R[ 
-55]C{+81);RO 

F;FIOR 

C;X6;ERC{-4]-RC[-2];K0 

F;FIOR 

C;X8;EMAX(RC[(-2],RC[(-2] 
+IF(R(-54]C[+4]>=300 
0,R[-54]C[+4j-3000,0 
J+R[-53]C{[+4]1-R[-52] 
C[+4]+R{[-57]C[+4]);K 
0 


F;FIOR 

C'X13/3kR"L, 1" 

F;FI0R 

C;X14;:ERC[-6];K0 

F;FIOR 

C;Y70;X2;K"REVENUS FONC 
IERS" 

F;FCOL 

F;X3;FCOL 

F,;X4;FCOL 

F;X5,5°COL 

F;X6;FCOL 

F;Xx7;FCOL 

F; X8;FCOL 

C;X13;K"L 2" 

F;FIO0R 

C;X14;EMAX(R(-50]C[-4]+ 
R(-48]c[-4]-(R[-50]C 
[-2]+R[-49]C[-2]+R{- 
48]C[-2]),0);Kk0 

F;FIOR 

C;Y71;X2;K"REVENUS DES 
PROFESSIONS NON SALA 


QONNNNNNNE 


; Y72;,X4;:ESUM(R[-48]JC:R 
[-43]C)-SUuM(R[-42]C: 
R[-39]C);D;kR0 

C;X6;S;R72;C4; KO 

C;X8;S;K0 

C;:X10;S;K0 

C;X12;S;K0 

F;X5;FI0G 

F;X7;F1I0G 

F:X9;FI10G 

F;X11;FI0G 

C;Y73;:X10;:EMAX(R(-1]C-7 

F(R[-1]Cc>3000,R[-1]cC 
/2,1500}),0);D;K0 
C;X12;EMAX(R(-1]C-IF({RI 
-1]C>8000,R[-1}C*0.2 
5,2000),0};K0 

C;'Y74;X13;K"L 3" 

F;FIOR 

C;/X14;/ENAX(R(-40]C[-6]+ 

R[-40]C[-4]-R[-39]JCI 
-6]-R[-39]C{-4],0);K 
0 

C:Y75;X13;K°L 4" 

F;FI0R 

C'X14;ESON(R[-2]C[-4]:R 

[-2]1C[(-2])+S0M(RI-3] 

CI-6]:R[-3]C{(-10]);kKk 

0 
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55 





56 


C;:Y76;X2;K"PLUS-VALUES 
A COURT TERNE ET PRO 
FITS DE CONSTRUCTION 
LI 


F;FCOL 

EF; X3;FCOL 

F;:X4;:FCOL 

F;:X5;FCOL 

F;X6;:FCOL 

F:X7;FCOL 

F;X8;FCOL 

F;X9;FCOL 

F;X10;FCOL 

C;:X13;K°L 5" 

F;FIOR 

C;X14;ER(-39]C[-12]+R[- 
38]C[-12]-R[-38]C[-1 
OJ+*MAX(SUM(R(-39]C[- 
4]:R(-37]C{[-4])-S0M( 
R[-39]C{[-2]:R{[-37])C[ 
-2]),0);K0 

C;:Y77;X2;:K"TRAITEMENTS, 
SALAIRES, PENSIONS 
RENTE S" 

F;FCOL 

F; X3; F'COL 

F;X4;FCOL 

F;:X5;5COL 

F;X6;FCOL 

F;X7;FCOL 

F;:X8;FCOL 

F;'X9;FCOL 

C;Y78;X2;:ER[-36]C+R(-36 
JC[+2];K0 

C;X4:ER[-35]C[-2]+R[(-35 
JC:K0 

C:X6;ER[-34]C[-4]+R[-34 
JC[-2];:kR0 

C;X8;ER[-33]C[-6]+R[-393 
JC[-4]1;KR0 

C'X10;ER[-32]C(-8]+R[-3 
2]C{-6];Kx0 

C;:X12;:ER[-31]C{-10]+R[- 
31]C[-8];D;Kr0 

C;'X14;ESUM(R[-30]C[-12] 
:R(-29]C[-10]);KR0 

C;:Y79;X2;:EMIN(MAX(MIN(N 
AX(R[-1]C*0.1,1800), 
R[-1]C,57840),R(-37] 
C{+4]),R[-1]C);Kr0O 

C;X4;/EMIN(MAX(MIN(MAX(R 
[-1]C*0.1,1800),R[-1 
1C,57840) ,R([-36]C[+2 
J),R[-1]C);K0 

C;'X6;:ENIN(MAX(MIN(MAX(R 
[-1]C*0.1,1800),R[-1 
]C,57840),R([-35]C),R 
[-1]jC) ;KO 

C;:X8;ENIN(MAX(MIN(MAX(R 
[-1]C*0.1,1800),R[-1 
1C,57840),RÎ-34]C[-2 
J),R[-1]C);K0 

C;X10;ENIN(MAX(NIN(MAX( 
R(-1]C*0.1,1800),R[- 
1]C,57840),R[-33]C[- 
4]),R[-1]C):KO 

C;X12;/EMIN(MAX(MIN(MAX( 
R{(-1]C*0.1,1800),R[- 
11C,57840),R{-32]C[- 
6]),R(-1]C);D;K0 

C;X14;:S;:R79;C12;Kk0 

C;Y80;X2;:ENIN((R(-38]CI 
+6]*R[-38]C{+8]+R(-3 
8]C{+10]*R[-38]C[+12 
J)°0.009,50000);K0 

C:X4;:E(R[-37]C{+4]*R(-3 
7]C[+6]+R[-37]C[+8]* 
R(-37]C{(+10]) *0.009; 
KO 

C:X6;:E(R[-36]C(+2]*R[-3 
6]JC[+4]+R{-36]c{+6]* 
R[-36]C[+8])*0.009;kKr 
0 


C:X8;:E(R[-35]C*R(-35]C[ 
+2]+R{[-35]C(+4]*R[-3 
5]C{[+6])*0.009;Kk0 

C;X10;R(R[-34]C[-2]*R[- 
34]C+R[-34]C{+2]J*R(- 
34]C{[+4])*0.009:;:r0 

C;X12;E(R[-933]C[-4]°R[- 
33]C{-2]+R(-33]C*R[- 
33]C{[+2])*0.009;:D;K0 

C;X14;:E(R[-32]C{(-6)°R(- 
32]C{-4]+R[-32]C[-21 


*R{[-32]C+R[-31]C[-6] 
*R{[-31j]C[-4]+R[-31]C 
[-2]*R[-31]C)*0.009; 
KO 


C;Y81;:X2;:ER[-3]C-R[-2]C 
-R{[-1]C;D;K0 

C;X4;S;R8l1;:C2;:K0 

C:X6;S;K0 

C;X8;S;K0 

C;X10;S;Kk0 

C;X12;S;Kk0 

C;X14;5;Kk0 

C;:Y82;:X2;:EIF(R(-32]C>18 
00,MAX(R[-32]C*0.1,1 
800) ,R[-32]C);D;KR0O 

C;:X4;:EIF(R([-31]C[-2]>18 
00,MAX(R[-31]C[-2]*0 
.1,1800),R[-31]C[-2] 
):K0 

C;:X6;:EIF(R(-30]C[-4]>18 
00,MAX(R[-30]C[-4]*0 
-1,1800),R[-30]C[-4] 
); KO 

C;:X8:EIF(R(-29]C[-6]>18 
00,MAX(R[-29]C{[-6]*0 
.1,1800),R(-29]C[-6] 
);:Kx0 

C:X10;ESUM(RC(-8]:RC[-2 
J);Kr0 

C;:Y83;X2;:EIF(R{[-1]C{+8] 
>24400,R[-1]C*24400/ 
R{-1]C{+8],R(-1]C);D 
:K0 

C;X4:£EIF(R[-1]C[+6]>244 
00,R[-1]C*24400/R{[-1 
JC[+6]J,R[-1]C);:K0O 

C;:X6;£IF(R[-1]C[+4]>244 
00,R[-1]C*24400/R[-1 
1C[+4],R[-1]C);KR0O 

C:X8;:BIF(R[-1]C[+2]>244 
00,R[-1]C*24400/R[-1 
JC[+2],R[-1]C);:KO 

C;X84;:X2:ER[-3]C+R(-34] 
C-R{[-1]C;:KRO 

C'X4:ER[-3]C+R[-33]C[-2 
J-R(-1]C;:KO 

C:X6:ER([-3]C+R(-32]C[-4 
J-R[-1]C;:RO 

C;X8;ER(-3]C+R[-31]C[-6 
J-R[-1]C;KO 

C;:X10;:ER[-3]C;D;K0 

C;X12;S;:R84;C10;:KO 

C:X14;:S;K0 

C;Y85;X2;&NIN(R(-1]C*O. 
2,104600);D;K0O 

C;X4;:S;R85;C2;K0 

C;X6;:S;K0 

C;X8;S;K0 

C;X10;S;R0 

C;X12;S;Kk0 

F;:X5;:FI0G 

F;:X9;FI0G 

F;:X11;FI0G 

C;X14:EIF(R(-37]C{[-12]> 
192200,R[-1]JC*0.1+17 
298,R(-1]C*0.2):KO 

C;Y86;X2;£R[(-2]C-R[-1]C 
;:D;K0 

C;'X4;S;R86;K0 

C;X6;S;K0 

C;:X8;S;K0 

C;X10;S;K0 

C'X12;S;Kk0 

C;X14;S;K0 

F;X5;:FI0G 

F;:X9;:FI0G 

F;X11:F10G 

C;Y87;xX2;&(R[-37]C[+2]* 
R(-37]C[+4j/100)+(R[ 
-37]C{[+6]*R{[-37]C(+8 
]/100)+(R[(-37]C[+10] 
*R{-37]C{[+12]/100):K 
0 

C;:X4:E{R(-36]C*R[-36]C[ 
+2]/100)+(R([-36]C(+4 
J*R[-36]C[+6]/100)+( 
R(-36]C{[+8]*R[-36]C{ 
+10]/100);K0 

C;X6:E(R[-35]C{[-2] *R[-3 
S]C/100)+(R[-35]C[+2 
J*R(-35]C{+4]/100)+( 
R[-35]C{[+6]*R(-35]C[ 
+8]/100);:K0 

C;X8:E(R[-34]C{-4]*R{-3 





41C[-2]/100)+(R[-34] 
C*R{(-34]C[+2]/100)+( 
R{-34]C[+4]*R[-34]C[ 
+6]/100);Kk0 

C;X13;:K"L 6" 

F;FIOR 

C;X14;:ESUN(R[-1]C:R[(-1] 
C{-12]);:K0 

C;Y88;:X13;K"L 7" 

F;FIOR 

C:X14;:ESUM(R(-1]C[-12]: 
R(-1]C{[-6]);Kk0 

C;Y89;:X13;K"L 8" 

F;FIOR 

C;'X14;:ER[-3933]C[-4]+R[-3 
1]C[-10];:Kr0 

C;Y90;X13;:K"£L 9" 

F;FIOR 

C;X14:ESON(R[-1]C:R[-3] 
C)+SUM(R{-14]C:R{[-16 
JC)+R{[-20]C+R[-21]C; 
KO 

C;:Y91;:X13;K'"L10" 

F;FIOR 
C;X14;:ESUM(R[-32]C[-12] 
:R[-32]C[-4]);:K0 

C;:Y*92;:X13;:K"L1l”" 

F;:FIOR 

C;X14;ER[-2]C+R(-1]C;KO 

C;:Y*93;X2;:K"DEDUCTION DE 
S CHARGES" 

F;FCO0G 

F:X3;FC0G 

F;:X4;FCO0G 

F;:X5;FC0G 

F;X6;FCO0G 

F;X7;FC0G 

F;X8;FCO0G 

F;:X9;:FC0G 

C'YS4;:X1;:K"J* 

C;:X2;EMIN(R[-38]C, 5000* 
R(-38]C[+2]);Kr0 

C;X3;K°K° 

C;X4;:ER(-38]C[+6]+MIN(R 
[-38]C[+2],16190*R[- 
38]C[+4]);:Kr0 

C;:X5;K°L" 

C;X6;:EMIN(R[-36]C[-4},6 
000+R(-90]C[+2]*500+ 
IF(R(-90]C[+2]>2, (RI 
-90]C[+2]-2)*500,0)) 
KO 

C;X7;K°M" 

C;'X8;EMIN(R[-36]C[+2],1 
3310)*R[-36]C[+4];K0 

C;X9;K"P" 

C;:X10;:ESUM(RC(-2]:RC[-8 
};K0 

C;:X12;:ER[-2]C[+2]-RC[-2 
J:kr0O 

C;:Y95;:X1;:K"R" 

C:X2:EIF(R(-1]C[+10)J<10 
0000,NMIN(25000,R[-39 
1C[+10]),MIN(R[-1]CI 
+10]/4,R[-39]C[+10]) 
):K0 

C;X3;K"Ss" 

C;X4;:ER(-38]C[-2];:KR0 

C:XS:K°T°" 

C;X6;:£EMIN(R[-38]C[-2],nu 
AX(R[-1]C[+6]*0.01,I 
F(R(-38]Cx0,R[-1]C{+ 
6]*0.05,0)));:K0 

C:X7;:K°"Vv" 

C;:X8;:&MIN(R(-38]C[+2],R 
[-1]C[+4]*0.1, 400+R[ 
-91]C*100);Kr0 

C;:X9;K°K”" 

C:X10;:EMIN(R[-37]C[(-2], 
R(-1]C(+2]/4);Kk0 

C;X13;K"Lz12" 

F;:FIOR 
C:X14;:ER(-1]C{[-4]+S0M(R 
C(-12]:RC[-4]);:K0 

C;:Y*96;X13;Kk"L139" 

F;FIOR 

C;X14;:ER[-4]C-R(-1]C;Kr0 

C;:Y97;X13;:R"L14" 

F;FIOR 

C;:X14:SNIN(IF(AND(OR(R([ 
-95]C[-6]=1,R(-94]C[ 
-6]=1,R(-87]c{-6]>65 
),R(-1]C<73600),IF(R 
[-1]C<45600, 7360, 368 


0),0),R[-1]C);K0 

C;Y*98;X10;:K°"NET IMPFOSAB 
LE* 

F;FCO0G 

F;X11;:FC0G 

F;:X12;:FC0G 

F;:X13;FC0G 

C;'X14;:EINT((R[-2]C-R[-1 
]C)/10)*10;k0 

C;'Y*99;:X2;K"NOMB8RE DE PA 
RTS" 

F;FCO0G 

F;X3;FC0G 

F;:X4;FCO0G 

F:X5;:FIOR 

C:'X6;EIF(R(-98]C[+2]=1, 
2,1)+(R[-97]C{+2]+RI[ 
-96]C(+2]+R[-95]C[+2 
J+R[-94]C[+2]+R[-92] 
C[+2]+R[-91]C[+2]]/2 
+R(-90]C[+2];K2 

F;FF1G 

C;X10;K"QUOTIENT FANILI 
AL" 

F;FCOG 

F;:X11;:FC0G 

F;X12;:FC0G 

F:X13;FC0C 

C:X14:£SR[-1]C/RC(-8];:KO 

C;X15;:ER(-1]C{[-1]/1F{RI 
-98]C[-7]=1,2,1);:K0O 

C;:Y*100;:X4;K0 

C;:X6;K0 

F;:F80G 

C:Y*101:X4:K15650 

C;:X6;:K0.05 

F;FS60R 

C;X8;:K782,5 

F;FF2G 

C;X10;K'"TRANCHE RETENUE 


F;FCcoG 

F;X11;FC0G 

F;:X12;FCO0G 

F:X13;:FCOC 

C;X14;:ELOOKUP(R[-2]C,R[ 
-1]C[(-10]:R[+12]C[-8 
J);D:RO 

F;:F4640G 

C;:X15;:ELOOKUP(R[(-2]C,RI 
-1]C{[-11]:R{[+12]C{[-9 
J);:r0 

F;:F$0G 

C:Y*102;:X4;:R16360 

C;X6;K0.1 

F;:F40R 

C;:X8;:K1600.5 

F;:FF2G 

C;X10;:K"IMPOT AVANT COR 
RECTION"” 

F;FC0G 

F;X11;FCO0G 

F;X12;FC0G 

F;:X13;FC0G 

C;X14;:ER[-4]JC*R[-1]C-RI 
-3]C[-8]*L0or0P(R[-3 
JC,r{-2]JC{(-10]:R{+11 
1C[-6]J);:K0 

C'X15;:ER(-4]C[-1]*R{[-1] 
c-IF(R[-101]c{-7]=1, 
2, 1} *LOORUP (R[-3]JC,R 
[-2]1C[-11]:R{(+11]JC[- 
7]J);:k0 

F;FI0G 

C;Y103;X4;K19400 

C;X6;K0.15 

F;F80R 

C;X8;k2570.5 

F;FF2G 

C;X10;K"IMPOT APRES PLA 
FONNEMENT" 

F;FCO0G 

F;:X11;:FCO0G 

F;:X12;:FC0G 

F;X13;FC0G 

C;:Y*104;X4;:K30680 

C;:X6;K0.2 

F;:F80R 

C;X8;K4104.5 

F;FF2G 

C;X10;K"DU QUOTIENT FAM 
ILIAL” 

F;,FCcC0G 

F;X11;FCO0G 


— Suite de ce fichier page 60 
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oftCopie 


OFT.COPIE perinet de 

recopier une disquette 

(non protégée) avec un 

seul drive, en seulement 
trois passes (contre neuf pour 
l'utilitaire FILER de ProDOS). 
Vous devez posséder un lecteur 
de disquette et 128Ko de RAM, la 
mémoire auxiliaire étant utilisée 
comme zone tampon. 


Son principal intérêt est qu'il 
permet de recopier une disquette 
avec un seul lecteur en seulement 
trois passes. Il est donc 
particulièrement destiné aux 
propriétaires d'APPLE //c ne 
possédant pas le lecteur de 
disquette externe. 


Il occupe très peu de place en 
mémoire principale et, en 
particulier, il ne détruit pas un 
programme Applesoft en 
mémoire, ni ses variables s'il est 
en cours d'exécution, et il ne 
dérange pas les éventuels fichiers 
ouverts. Vous pouvez donc 
l'incorporer comme utilitaire 
appelé par votre programme 
favori. 


Utilisation 


SOFT.COPIE est disponible en 
mode direct : il suffit de taper 
"BRUN SOFT.COPIE" (ou 
"-SOFT.COPIE"). A l'apparition 
du message, insérez votre 
disquette originale dans le lecteur, 
puis appuyez sur la touche 
<Retum>. Au message suivant, 
insérez la disquette réception. 
Recommencez trois fois de suite, 
et c'est fini ! 


En fin de copie, il est possible de 
recommencer avec <Return>. 
Pour sortir de SOFT.COPIE, 
appuyez sur la touche <ESCape>. 
Cette dernière touche permet 
également d'abandonner une 
copie en COUIS. 
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Le programme vous signale les 
éventuelles erreurs rencontrées : 
disquette non insérée ou porte du 
lecteur ouverte, disquette protégée 
contre l'écriture, ou disquette non 
fonnatée. 


En effet, la disquette de réception 
devra auparavant avoir été 
formatée en 16 secteurs, soit sous 
ProDOS par l'utilitaire FILER ou 
la commande INIT parue dans 
Pom's 20, soit sous DOS 3.3 ou 
PASCAL par la procédure 
correspondante, 


SOFT.COPIE permet de recopier 
toute disquette formatée en 16 
secteurs, c'est à dire utilisée avec 
les systèmes d'exploitation 
ProDOS, DOS 3.3, Pascal ou 
CP/M. 

Ne confondons pas : SOFT. 
COPIE tourne sous ProDOS et 
nécessite, en particulier, le disque 
virtuel de 64Ko en mémoire 
auxiliaire. [1 ne peut donc pas être 
utilisé avec un autre système 
d'exploitation (bien qu'il puisse 
recopier des disquettes de formats 
différents). 


Le message d'erreur 1/0 ERROR 
est généré si vous tentez d'utiliser 


Bruno 
Fénat 


SOFT.COPIE sans avoir de 
disque virtuel installé par 
ProDOS, en particulier si vous ne 
disposez pas d'une configuration 
mémoire totale de 128 Ko ou 
plus. 


Description 
technique 


En mémoire principale, SOFT. 
COPIE n'utilise que deux zones : 


+ la page 3 (adresses de $300 à 
$3CF) ; 

+ le buffer temporaire de 1Ko 
placé dynamiquement par 
ProDOS juste au-dessus de 
HIMEM:. 

La figure 1 illustre l'utilisation 
de ce buffer par ProDOS. 


Le disque virtuel 64Ko en 
mémoire auxiliaire, initialisé par 
ProDOS lors de son chargement 
initial, est utilisé en quasi-totalité 
par SOFT.COPIE. Néanmoins, 
les blocs du disque virtuel qui 
correspondent au mode texte 80 
colonnes et au graphique double 
haute-résolution sont préservés 
dans leur état initial. 


Figure 1 : Occupation de la mémoire avant et pendant une 
commande CATALOG ou CAT 


Commande 
CATALOG 


Buffer 
libre 
--HIMEM-- 


Buffer 
CATALOG 
—-HIMEM-- 


Commande 
CATALOG 
Buffer 
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Buffer 
fichier 


Buffer 
CATALOG 
—-HIMEM-—- 


Buffer 
libre 
—-HIMEM-- 





Ce disque virtuel, normalement 
dénommé /RAM, comporte 128 
blocs (contre 280 pour une 
disquette). Le nombre de fichiers 
que peut contenir son répertoire 
principal est de 12 (contie 51). 


La figure 2 montre la 
correspondance entre les blocs du 
volume /RAM et les adresses 
physiques en mémoire auxiliaire. 


Les blocs 0 à 7 sont utilisés par 
ProDOS et ne doivent pas être 
modifiés directement : 


* le bloc 2 contient ie "Volume 
directory” ; 

+ le bloc 3 contient le "Volume 
Bit Map" ; 

+ le bloc 7 correspond aux 
adresses de la pile et de la page 
zéro de la mémoire auxiliaire. 
II est donc fortement 
déconseillé de le modifier sous 
peine de graves problèmes ; 

* les blocs 0,1,4,5 et 6 sont 
inaccessibles en lecture et en 
écriture. Une tentative de 
lecture de ces blocs donnera 
toujours zéro. Une tentative 
d'écriture ne les modifiera pas 
(ils resteront à zéro), ni les 
adresses en mémoire auxiliaire 
correspondant à ces blocs 
(adresses $200 à $BFF). Les 
affichages texte et graphique 
basse résolution en 80 
colonnes sont donc 
automatiquement protégés. 


Il est prévu que les futures 
versions de ProDOS utilisent 
d'autres adresses en mémoire 
auxiliaire. C'est déjà le cas pour 
les versions à partir de ProDOS 
1.1.1 pour lesquelles le dernier 
bloc ($7F) est réservé. Le nombre 
total de blocs du disque virtuel 
devient 127. 


La page graphique double 
haute-résolution 1 correspond aux 
blocs $08, $0A à 5$18. 
SOFT.COPIE n'utilisera donc les 
blocs du disque virtuel qu'à partir 
du numéro $19, jusqu'au numéro 
$7E inclus. 


Fonctionnement 
technique 


SOFT.COPIE va utiliser les 





caractéristiques du disque virtuel 
pour réaliser une recopie en trois 
passes. 


Pourquoi trois passes ? 


D'après les impératifs précédents, 
le volume /RAM comporte 93 
blocs disponibles. Or, une 
disquette de 140 Ko en comporte 
280, c'est-à-dire : 280 = 93 x 3 + 
L 


La solution adoptée consiste donc 
à occuper la totalité de l'espace 
virtuel disponible ainsi qu'un 
buffer de 512 octets en mémoire 


principale, soit un total de 94 
blocs utilisés 3 fois (afin de 
simplifier le programme, les blocs 
93 et 196 sont recopiés deux 
fois). 


L'avantage majeur est que 
SOFT.COPIE n'utilise alors que 
208 octets et peut donc se loger 
dans la zone tranquille en page 3 ; 
en particulier, on n'a pas besoin 
de se soucier d'avoir à le reloger 
en mémoire haute comme on 
devrait le faire pour un 
programme plus important. 


Figure 2 : Correspondance entre blocs du disque virtuel et 
numéros de page en mémoire auxiliaire 64 Ko 


Page OI027S 0375 
$00 
$10 
$20 
$30 
$40 
$50 
$60 
$70 
$80 
$90 
$SAO 
SBO 
$co 

SDO bancl1i 

$DO banc2 
$SEO 
SFO 


$07 
$09 
$08 
$11 
$19 
$22 
$2A 
533 
$3B 
$44 


(0,1,4,5,6 
$S1A S$2B 
SOA S$SOB 
$12 $13 
S1B :$1{C 
$23 $S24 
$2C S$2D 
$34 $35 
S3D' S3E 
$S45 S46 
$S4C S4E S4F 
S55 1 SG $57 

Zone des E/S 
S60  S6I S62 
$S68 $69 S6A 
S7:0 S$S71 S$72 
$78 $79 S$S7A 





Récapitulation 
‘SOFT.COPIE" 


Aprés avoir saisi ce code sous moniteur, 


vous le sa rez par 
BSAVE SOFT.COPIE,AS$29D.L$131 


non accessibles) 


et des 


8/9 2Af/B C/D 
$03 
$SE 
$SoFr 
S17 
$20 
$28 
$31 
$39 
$42 
S4A 
551 $52 $SiS3 
$59 S$SSA S5B 
commutateurs 

S64 S$S65 S$66 
$S6C $6D S6E 
$74 $75 $76 
$7C $7D $7E 


$4D 
$0D 
$15 
$1E 
$26 
$2F 
$37 
$40 
548 


S:5:D 
$0E 
$16 
$iFr 
$27 
$30 
$38 
$41 
$49 


$3C 
$oc 
S14 
$1D 
$25 
$2E 
$36 
$3F 
S47 
$50 
$58 


$63 
S6B 
573 
$7B 
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Source ‘T. SOFTCOPIE’ 
Assembleur ProCODE 


CELLLEELELELETEEEL LL ELLIEETETEL ELLE EEEECETEEETEEETETETETETE: 
. 


1985 cé 


. 


SOFT.COPIE 4.2 (C} Bruno Fénart 


copie rapide de disquettes avec un seul drive. nf 
L 


L 
L 
* Créé: 15 Juillet 1985 Modifié: 14 Octobre 1985 
* 
. 
* 


COLLELLELL ELLE LITE EEE ET EE ETEL EL ELLE ET ENT LE ELEE LEE) 


* Présentation : 

* Ce programme permet de recoPier une disquette non 

* protégée avec un sel drive, en seulement trois passes 
* (contre neuf pour l'utilitaire ProDOS). 

. 

* Vous devez posséder un ilecteur de disquette et 

* 128K de RAM, la mémoire auxiliaire étant utilisée 

* comme zone tampon. 

* Constantes des disques réels et virtuels * 

UNITNB EQU $60 N° slot x $10 (+ $80 si drive 2) 
RAM EQU 519 N° du lier bloc utilisé en /RAM 


* Codes des commandes ProDOS , 

RDBLOCK EQU S80 “Lecture directe d'un bioc 
WRBLOCK EQU S81 Ecriture directe d'un bloc 
, Variable en page zéro + 


HIMEM EQU $73 «Fin de l'espace mémoire + 1 
, Zone d'E/S et des commutateurs , 


KBDSTRB EQU S$CO10 #Echantillonnage du clavier 
* Sous-programmes en pages globales ProDOS et BASIC.SYSTEM 


AGAIN 


PASSE 


ESCAPE 


* Transfert des blocs du 


BEQ 


HOME 


#$s0c 
HIMEM 
BIERR 
HIMEM+1 
BUFFER+I 
XBUFFER+1 
BLOCK 


#<SOURCE 
CLAVIERI 
f<ORIVPAR 
#<AUXP2BR 
TRANS 
BLOCK 


#<DESTIN 
CLAVIERI 
#<AUXPAR 
#<DRIVPAR 
TRANS 
BLOCK 


#5BA 
PASSE 


STERMINE 
#<COPIE 
CLAVIER 
AGAIN 


‘Code 8I de NO BUFFERS AVAILABLE 


Erreur si HIMEM mal ajusté 
sinon les buffers de données 
sont mis à l'adresse du buffer 
temporaire de BASIC.SYSTEM 
Commence au bloc 0 


Ve Ve ve ve 


Adr. retour d’erreur en lecture 
Affiche l'instruction: 
“Insérez le disque source:" 


. + 


Disquette source --> /RAM 
sRestitue ie n' du bloc de départ 


sAdr, retour d'erreur d'écriture 
‘Affiche l'instruction: 
«Insérez ie disque destination:" 


:/RAM --> Disquette destination 
‘Un bloc commun entre lies passes 


Début dernière passe au bloc $BA 


; "Copie terminée” où 
+: “Copie snnulée” 

+; puis test du clavier 
sRecommence tjs une autre copie 
disque vers /RAM et vice versa * 








ERROUT EQU S$BE09 sAffiche l'erreur {code 8I en À) 
BADCALL EQU S$BES8D ;Code erreur MLI --> code 31 TRANS STA LEC Lecture du disque ou de /RAM 
MLI EQU S$BF00 «Entrée de ProDOS STX ECR “Ecriture du disque ou de /RAM 
* Sous-programmes du monfteur et de l'interpréteur BASIC 
LDA #00 Poids fort toujours nul au départ 
STROUT EQD $DB3A sAffiche une chaîne (A,Y) fin 00 STA BLOCK+] 
NORMAL EQU S$F273 ‘Passage en mode normal LDY BLOCK sEréserve le n° du bloc de départ 
TEAT EQU $Fr399 ‘Passage en mode texte total LDA #RAM : premier bloc en /RAM 
HOME EQU SFC58 ;£fface l'écran STA XBLOCK 
RDKEY EQU $FDOC sAttend une touche, code mis en À LOX  #RAM+S5E ;Dernier bloc en /RAM 
CROUT EQU SFD8E ‘Envoie un retour charict 
ORG $029D GROUPE JSR MLI ‘Lecture d'un bioc 
DFB  RDBLOCK 
#** Point d'entrée re LEC DA DRIVPAR 
BCS ERREUR 
JMP DEBUT 
. Messages d'instructions 2 JSR MLI Ecriture d'un bloc 
DFB WRBLOCK 
MESSAGE EQU * ECR DA  AUXPAR 
DISQUE ASC ‘Insérez le disque ‘ BCS ERREUR 
DFB 00 
SOURCE ASC ‘source:" INC BLOCK +Blocs suivants 
oF8 00 BNE NOCARRY 
DESTIN ASC ‘destination: INC BLOCK+i sDrive sur 2 octets 
DEEUOC NOCARRY INC  XBLOCK :mémoire auxiliaire sur un seul. 
COPIE ASC ‘Copie ‘ CPX XBLOCK 
DFB 00 BNE GROUPE Copie par groupe de $5E blocs 
ANNULE ASC ‘annulée! RTS 
DFB  $0D Saut de ligne , Gestion des erreurs , 
DFB 00 
TERMINE ASC ‘terminée ERREUR LDX #<IOËRR 
DFB $0D Saut de ligne CMP #527 sErreux d'E/S ? 
DFB O0 BEQ ERRIN 
IDERR ASC ‘Erreur d'E/S' LDX  #<NRIPRO 
DFB  $07 “ton CMP 452B :Ecriture protégée ? 
DFB que , BEQ ERRIN ‘Sinon sutres erreurs: 
WRIPRO ASC 'Disque protégé JSR BADCALE ;Code MLI --> code BI 
DFB $07 :Gong BIERR JMP  ERROUT :Affichage de l'erreur et arrêt 
DFB 00 
DS $300-* Alignement ERRIN  PLA Calcul l'adresse de redémarrage 
DEBUT JSR TEXT sUn écran tout neuf SB8C 450€ ; {SEC inutile après l'äagalité) 
JSR NORMAL FHA 
1 ° 
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STY BLOCK 
JSR AFFICHEÏ 
RTS 


#Réinitiaiise le r° de bloc 
sAffiche l'erreur correspondante 
zRetouz 12 octets er arrière 


# Affichage des instructions et test du ciavier . 


* CLAVIER: Message en 2 parties 
* CLAVIERI: Idem mais l' partie = 


CLAVIERI LDX  #<DISQUE 
CLAVIER PHA 
JSR 
PLA 


JSR 


1° 


5 


AFFICHEI 


AFFICHE 


KBDSTRB 
RDKEY 
#$8D 
ONYVA 
+598 
Jboucle 


Jboucle 


LDA  S<ANNULE 





partie du message 
sPréserve 
Affiche la i' partie 

sRécupère l'adresse de ia 2° 
‘Affiche la 2° partie (sans saut) 


(X =” :Ace = 2") 
“Insérez le disque “ 


“Jnsérez.., 


l'‘'adr. de ls 2° partie 


:Un clavier tout neuf 
Affiche le curseur, 
‘puis attend un reteur cfariot, 


:Si ce n'est pas le caractère ESC 
Jon attend un autre caractère, 


ssinon on saute un retour 
sPréserve l'adresse basse 
:Dépile l'adresse haute 

‘Message 


“Annulé* si ESCAPE 


Suite de la page 56, fichier ‘IMPOTS 


F;X12;FCUuG 

F;X13;:FC0G 

C:X14;:EMAX(R[-2]C,R[-2] 
C[+1]-10520+*2*{R[-5] 
C{-8]-IF(R(-103]C{(-6 
J=1,2.1)));K0 

C;Y105;X4;K39440 

C;X6;K0.25 

F;F$0R 

C; X8:K6076.5 

F;FF2G 

C;:Y106;X4;K49550 

C;X6;:K0.3 

F;F40R 

C;X8;:K8554 

F';5F2G 

C;X10;K"REDOCTION D'IMP 
OTs" 

F;FrCOC 

F;X11;:FCO0C 

F;X12;FrC0C 

C;Y107;X4;:K59950 

C;X6;:K0.35 

F;E'BROR 

C;X8;K11551,5 

F;FF2G 

C;X11:K"A" 

C;X12;EMIN(0.25*R[-46]C 
[-10]+0.2*(R{-46]C{- 
8]J+R{(-46]C[(-6]+R[-46 
1C{(-4]),0.25*{15000+ 
2000*(R{[-103]JC[-4]+R 
{-1001C[-4]+R[-99]C[ 
-4]+R{[-98]C{(-4])));:K 


0 

C;*108;X4;:K69170 

C;X6;K0.4 

E';E'ROR 

C:X8;K15010 

F;FF2G 

C;X11;K"8B" 

C:X12;EMIN(R{(-47]C{(-2], 
12000+2000*(R{[-104}C 
{-4]+R[(-101]JC{-4]+R{ 
-100}C{-4]+R{[-99]C[(- 
41));:K0 

C;Y109;X4;:K115250 

C;X6;:K0.45 

F';F$0R 

C;X8;K20772.5 

F;FF2G 

C:X11;:K"C" 

C;X12;:E0.25*(NIN(R(-48] 
C,IF{(R[-108]C[-4]=1, 
16000,8000)+2000*(R[ 


-105]C{-4]+R{-102]C[ 
-4]+R{-101]C{-4]+R{- 
100]C{[-4])));RO 

C;Y110;X4;K158510 

C;X6;K0.5 

E';E"$0R 

C;X8;K28698 

F;FF2G 

C;X11;K"D° 

C;X12;/;E{MIN(R[-48]C[-10 
],4000+1000*(R{[-106] 
C{-4]+R{[-103]C{-4]+R 
[-102]C{-4]+R{(-101]C 
[-4])))/4#MIN(R(-48] 
C{-8], 7000+1500*(R[- 
106]JC[-4]+R{[-103]C{- 
4]J+R(-102jC[-4]+R{-1 
01]C{(-4]))/4;K0 

C;Y111;X4;K187490 

C;X6;K0.55 

E';E'$OR 

C;X8;K38072.5 

F;FF2G 

C:X11;K'"E" 

C;X12;EMIN(R(-49]C{-6], 
2000);kr0 

C;Y112;X4;:K213280 

C;X6,;RK0,6 

F;F#0R 

C;X8;K48736.5 

F;FF2G 

C;X11;K°F" 

C;X12;RMIN(R(-50]C{(-4]/ 
4,IF(R{-111]C[-4]=1, 
14000,7000});x0 

C;Y*113,;X4;K241740 

C;X6;:K0.65 

F;F$&0R 

C;X8;:K60823.5 

F;FF2G 

C;X11;:K°G" 

C;X12;E{SUM(R(-50]C{[-10 
J:R(-50]C{(-61))/4;K0 

C,;Y114;:X11;R"4" 

C;X12;E(MIN({(R(-51]C[-4 
J+0.75*(R{[-51]C{(-2]}) 
},IF(R[-113]JC{-4]=1, 
400000,200000)))*0.0 
S;Kk0 

C:Y115;:X1l1:K"A" 

C;X12;ESOUM(R[-1]C:R[(-8] 
C);K0 

C;Y116;X9;K'"APRES REDOC 
TION LIGNE B” 

F; FCOC 





ONY VA 


AFFICHEL JSR 


AFFICHE 


DRIVPAR DFE $03 
DFB UNITNB 
BUFFER DA $0000 
BLOCK DA $0000 
AUXPAR DFE $03 
DFB $80 
XBUFFER DA $0000 
XBLOCK DA $0000 
Ds $3D0-* 


CPX 
BNE 
RTS 
* Affichages des messages. 


ESCAPE 


# AFFICHEÏ: 
* AFFICHE :; 


CROUT 
TXA 
LDY 
JSR 
RTS 
* Täable des paramètres 


#>MESSAGE 
STROUT 


F;X10;FCO0C 

F;:X11;:FCO0C 

F;X12;FCO0C 

F;X13;FrCc0cC 

C;XJ14:ER[-12]C-R{[-1]C[- 
2};K0 

C;Y117;:X9;K"DECOTE LIGN 
£ D" 

F;FCOC 

F';X10;5C0C 

s';X11;FCO0C 

F;X12;FCO0C 

F;X13;FC0C 

C'X14;:EMIN{IF(AND(R(-1] 
C<4300,R{-1]C>=1700, 
R{(-18]C{(-8]=1},4300- 
R{-1]C,0)+IF(AND({R{- 
1]JC<1700,R[-18]C[-8] 
<1.5),1700-R[-1]C,0}) 
RÎ-1]C);K0 

C;Y118;X9;K"IMPOTS SUR 
+VALUES LIGNE F" 

F;Frc0cC 

F;X10;FC0C 

F;X11;FC0C 

F;X12;FC0C 

F;X13;FC0C 

C;X14;S5{R[-79]C{-10]J-R[ 
-78]JC{(-10]}*0.11+(RI[ 
—-79]C{(-8]J-R(-78]C{-8 
J+R(-80]C{(-6}}*0,16+ 
(R[-79]C{-6]J-R[-781C 
[-6])*0.26+R[-81]C[I- 
6]*0.51;k0 

C;Y119;X9;K'"LIGNE K" 

F;FCO0C 


F;X10;Frc0C 

F;X11;FC0C 

F;X12;FC0C 

F;X13;FCO0C 

C;XI14/ER(-57]C[-4]+R{(-5 
5]C{(-4];Kk0 

C;Y120;X9;K"APRES CORRE 
CTION LIGNE G”" 

F';FCOC 

F;X10;FrC0cC 

F;X1l1;FCOC 

F;X12;FC0C 

F;X13;FCO0C 

C'X14;:EIFS((R[-4]C-R[-3] 
C+R{(-2]C+R[-1]C)>339 
»RÎ-4]C-R(-3]C+R[(-2] 
C+R(-1]C,0);K0 

C;Y121;X9;K'"NINORATION 
1986" 





f<ESCAPE+4 :Donne zéro en cas d'égalité 
jRevient au départ ou fin 


Avec saut de ligne (X = Adr.) 
Sans saut de ligne (Acc = Adr.} 





Envoie un retour chariot 


sPoids fort identique pour tous 


de ProDOS * 


:Nombre de paramètres 

:UNIT NUMBER du lecteur de disque 
‘Adresse du buffer de données 
sNuméro du bloc 


:Nombre de paramètres 

‘UNIT NUMBER du disque virtuel 
:Adresse du buffer de données 
sNuméro du bloc 

:Protège les vecteur du DOS 





F;FCOC 

F;X10;SC0C 

F;X11;FCO0C 

F;X12;FCO0C 

F;X13;FC0C 

C;'X14;&IF(R[-1]C<22730, 
R{(-1jC*0.08,0}+IF(AN 
Dfr(-1]C>22728,R[-1] 
C<28411),4*(1420-R{- 
1]C*0.0425),0)+IF(AN 
D{R(-1]C>28410,R{[-1] 
C<34091),R[-1]C*0.03 
, 0); KO 

C/Y*122;X9;K"APRES MINOR 
ATION 1986" 

F';FCOC 

S';X10;#CO0C 

F;X11;FC0C 

F;X12;FC0C 

F;X13;FC0C 

C;X14;ER[-2]C-R{-1]C;K0 

C;Y123; X9;K"CONPLEMENTA 
IRE 1%” 

F;FCOC 

F;X10;FCO0C 

F;X11;FC0C 

F;X12;FC0C 

F;X13;FrC0C 

C;X14;:EIF{R(-3]C>339,R/{ 
-54]C*0.01,0};xK0 

C;Y124;X9;K"CREDITS AVO 
IRS FISCAUX" 

j';FCOC 

F;X10;FC0C 

F;X11;FCO0C 

F;X12;FC0C 

F;X13;FCO0C 

C;'X14:ER[-106]C{(-2];K0 

C;Y125;X9;K"IMPOT DU" 

F;FCOC 

F;:X10;FCO0C 

F;X11;:FCO0C 

F;X12;FC0C 

F;X13;FC0C 

C;X14;ER[-3]C+R(-2]C-R{ 
-1]C;Kx0 

W;Nl;A70 12 

E 


Note : dau x retours chariots” sont 
indispensables à la fin de ce 
fichier. 








Retour dans le Basic 
Halte aux Scrolls ! 


ans les lignes qui vont 
suivre, nous allons 
présenter deux utilitaires 
utilisables à l'aide de 
l'instruction ampersand (&) du 
langage Basic Applesoft. 
La fécondité de cette instruction 
u'est plus à prouver. De jour en 
jour, de numéro de Pom's en 
numéro de Pom's, elle enrichit 
l'étendue des possibilités du Basic 
de nos Apple par l'accès facile à 
des programmes rédigés en 
langage machine. 
Les deux utilitaires présentés ici 
regroupent des programmes 
permettant d'accomplir des tâches 
fort différentes et très utiles dans 
la pratique. 


Le premier permet d'activer la 
touche ESC et airsi de 
programmer la possibilité de 
revenir en arrière lors du 
déroulement séquentiel d'un 
programme écrit en Basic 
Applesoft. 


Le second perinet d'interrompre 
en bas de page le défilement 
-continu de l'affichage à l'écran. 


Pour utiliser cette bibliothèque 
ampersand, vous devez soit la 
charger par un BRUN, soit lancer 
l'instruction CALL 37555 lorsque 
la bibliothèque est déjà en 
mémoire. Celle-ci a été implantée 
dans les adresses $92B3... 
$949D. Toutefois, le programme 
étant relogeable, vous pouvez le 
déplacer facilement en utilisant le 
programme RELOCATE présenté 
par JF. DUVIVIER dans le n°] 
de Poms. 


Faites marche 
arrière dans un 
programme Basic 


Utiliseriez vous une voiture sans 
marche arrière pour vous déplacer 
dans le dédale des rues d'une 
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agglomération? Non. Et pourtant, 
vous avez sûrement déjà utilisé ou 
même rédigé des programmes 
sans possibilité de revenir en 
arrière après un choix 
malencontieux. Ce n'est peut être 
pas tout-à-fait la même chose mais 
tout aussi fâcheux. 

Nous vous proposons dans les 
lignes qui vont suivre, un moyen 
simple d'inclure dans vos 
programmes Basic les facilités du 
retour arrière programmé par la 
touche ESC. Cette touche sera 
programmable lors de chaque 
question posée à l'utilisateur de 
votre programme. 

Quatre commandes utilisant 
l'ampersand (&) sont nécessaires 
pour accomplir cela. Elles gèrent 
une pile d'adresses de trois 
niveaux (implantées aux adresses 
$F9...$FE) permettant ainsi de 
fair eun retour à trois étapes 
antérieures. Les deux premières 
permettent de pointer les 
instructions où l'on accepte de 
revenir en cas de demande, la 
troisième déclenche le retour 
arrière et la dernière interdit tout 
retour à une étape qui la précède, 


&STORE 


Cette commande permet de 
pointer une instruction Basic où 
l'on souhaite éventuellement 
revenir en cas de besoin. Comme 
le faisait le “Petit Pousset" avec 
des cailloux, elle laisse une trace 
du passage en certains points du 
programme dans l'intention de 


pouvoir y revenir. 
Cette commande mémorise en 
$CE.$CF le numéro de 


l'instruction d'où elle est lancée. 
Vous pouvez la placer n'importe 
où dans votre programme (sauf 
dans un sous programme ou dans 
une boucle). Elle doit 
obligatoirement apparaître sur la 
ligne d'instructions où l'on désire 
revenir en cas de demande 
explicite. 


Gilles Caraux 


La place privilégiée de &STORE 
se situe en général au début des 
instructions définissant un menu. 
En effet, c'est par le choix dans 
un menu que l'on débute 
normalement un traitement et c'est 
donc là en général qu'il est 
souhaitable de pouvoir revenir en 

cas de nécessité. 

Cette commande prend soin de 
remettre à zéro la pile du 
processeur gérée par l'interpréteur 
Basic (adresses $100 à $1FF). 
Ceci permet de quitter une boucle 
ou un sous programme en ayant 
fait le ménage. Ceci interdit 
également, ce qui est normal, de 
revenir dans un sous-programme 
sans repasser par une instiuction 
GOSUB et impose aussi de 
reprendre une boucle par 
l'instruction FOR. Vous ne 
pouvez donc pas programmer un 
retour à l'intérieur d'un sous- 
programme ou d'une boucle. 


&VAL 


Cette instruction est la deuxième 
étape de mémorisation d'un 
numéro d'instruction. Elle valide 
la demande exprimée par 
&STORE. 

En effet &STORE n'a pas placé le 
numéro de l'instruction qu'elle 
pointe dans la pile contenant le 
numéro des instructions où l'on 
est susceptible de revenir. 

Ceci était prématuré. Si, au début 
d'un menu, &STORE avait 
directement modifié la pile des 
numéros d'instructions ($F9... 
$FE), en appuyant sur "ESC" à la 
fin de ce menu, on retrouverait 
celui-ci et non celui qui le 
précède. 

Sa place naturelle est située 
directement à la suite d'une 
instruction GET ou INPUT 
lorsque la réponse est autre que 
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ESC". 


Notons que l'on peut lancer 
plusieurs fois la commande 
&VAL après une commande 
&STORE. Seule la première sera 
prise en compte pour la 
modification de la pile. 


&RETURN 


L'exécution de cette commande 
vous fera revenir à la dernière 
instruction mémorisée par 
&STORE et validée par &VAL. 
On devra donc la placer à la suite 
d'un GET ou d'un INPUT après 
avoir testé si la réponse est 
CHR$(27) (touche “ESC"). 


&CLEAR 


Cette commande remet à zéro la 
pile de travail définie en 
F9. FE, 

On l'utilisera pour interdire tout 
rétour à une instruction précédant 
celle où elle apparaît. Ceci est 
parfois nécessaire quand pour des 
raisons de logique propre au 


programme, on ne peut retrouver 
par un retour arrière une situation 
propice à la reprise du traitement. 


Halte aux 
SCROLLSs 


Le SCROLL est une sous- 
programme du système qui 
déclenche le décalage vers le haut 
des lignes de l'écran. Elle est 
utilisée pour dégager la dernière 
ligne du bas quand l'affichage 
nécessite plus de 24 lignes. 

Ainsi, quand on édite un grand 
nombre de lignes, on provoque 
un défilement ininterrompu à 
l'écran. 

La seule possibilité qui nous est 
donnée pour s'attarder sur 
l'affichage est d'utiliser CTL-S. 
Ceci est peu convivial et peu 
pratique. 

Le programme en langage 
machine qui vous est proposé ici 
remédie à ce problème. Il peninet 
une édition progressive écran par 
écran et non plus en continu. Il 
vient se substituer à la routine de 
sortie de caractères dont l'adresse 


est mémorisée en $36.$37. 


&SCROLL DEL 


A partir du moment où cette 
commande est donnée, l'affichage 
se fait page par page. Une fois 
l'écran rempli un message 
demande d'appuyer sur une 
touche pour continuer 
l'impression. 

Pour revenir au mode d'affichage 
nonnal (ce qui est nécessaire 
quand on utilise les commandes 
DOS d'écriture sur disquette), 
vous devez lancer successivement 
les ordres : PR#0 : CALL 1002 
La commande &SCROLL DEL 
est compatible avec les 
commandes de retour arrière 
présentées plus haut. Lors de la 
réponse au message apparaissant 
en bas de l'écran vous exécutez 
automatiquement &RETURN si 
vous appuyez sur la touche 
"ESC", sinon vous validez par 
&V AL la dernière demande de 
retour faite par &STORE. 


R I = 1 TO N: GOSUB 220: NEXT : GOSUB 


210: VTAB 3: RETURN 


Programme ‘BIBLI.DEMO’ 


10 HIMEM: 37555:N% = O:NMS = "" 110 & VAL : & STORE :N = 5: GOSUB 100: 
20 D$ = CHR$S (13) + CHR$S (4):ER$S = CHRS HTAB 6: PRINT "LISTES DES FICHIERS SE 
(7):ESC$ = CHRS (27) TROUVANT": PRINT : HTAB 3: PRINT "ACTU 
ELLEMENT SUR LE DISQUE NUMERO l'": VTA 


30 PRINT D$"BRUNBIBLI.AMPER" 


40 & STORE :N = 3: GOSUB 100: HTAB 7: PR B 10: NORMAL 
INT “PROGRAMMES DE DEMONSTRATION": VTA 120 & RWTS: IF N$ < > 0 THEN GOTO 140 
B 6: HTAB 17: PRINT "MENU": NORMAL 130 NORMAL : HOME : TEXT : VTAB (15): PRI 
50 VTAB 11: PRINT "1 - ECRIRE LES 300 PRE NT "AUCUN FICHIER N'EXISTE SUR LE DISQ 
MIERS NOMBRES.": VTAB 14: PRINT "2 - À UE !": GOTO 60 
FFICHER LE CATALOG DE LA DISQUETTE. ": 140 & SCROLL DEL : FOR I = 1 TO N$: & RE 
VTAB 17: PRINT “3 - LISTER LES INSTRUC AD NM$ > I: PRINT I;" - "NMS: PRINT : 
TIONS DU PROGRAMME": VTAB 20: PRINT "4 NEXT I: GOTO 60 
- QUITER LE PROGRAMME. ": GOSUB 170: © 150 VTAB 24: HTAB l: INVERSE : PRINT “ P 
N O GOTO 70,110,80,90 OUR CONTINUER TAPER SUR UNE TOUCHE. ";: 
60 GOSUB 150: & VAL : PRINT DS"PR#0": CA GET O$: NORMAL : IF O$ = ESC$S THEN € 
LL 1002: TEXT : GOTO 40 RETURN : PRINT ERS$S: HTAB l: RETURN 
70 & VAL : & STORE :N = 3: GOSUB 100: 4 160 & VAL : HTAB 1: RETURN 
NOMBRES": VTAB 10: NORMAL : € SCROLL D ONDRE";: NORMAL : PRINT " 12... 4 
EL : FOR I = 1 TO 300: PRINT I;:" "s: ";: HTAB 28: GET O$: IF O$ = ESC$ THEN 
NEXT : GOTO 60 € RETURN 
80 & VAL : & STORE :N = 3: GOSUB 100: H 180 O = VAL (O$}: IF O>O0ANDO< =4T 
TAB 8: PRINT "LISTING DU PROGRAMME BAS HEN  HTAB l: RETURN 
IC": VTAB 10: NORMAL : & SCROLL DEL : 190 HTAB 28: PRINT ERS$S;: PRINT OS$; 
LIST : GOTO 60 200 HTAB 31: PRINT "ERREUR";: GOTO 170 
90 N = 3: GOSUB 100: HTAB 15: PRINT "AU RE 210 PRINT “+#";: FOR I = 1 TO 38: PRINT "- 
VOIR !": VTAB 23: NORMAL : END ";: NEXT I: PRINT "+";: RETURN 
100 TEXT : HOME : INVERSE : GOSUB 210: FO 220 PRINT "I"; SPC( 38);"I";: RETURN 
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Source 
‘BIBLI.TEXT' 
si * 
2 
3 ADDON EQU S$SD9 
4 BELL EQU SFFJA 
5 CONINT EQU SE6FB 
6 COUT1 EQU SFDFO 
7 ERROR EQU SD412 
8 FNDLIN EQU S$SD61A 
9 FRMNUM EQU SDD67 
10 LAB1 EQU SDEC9 


Le 
nn 


Hhbhbte 
a 8 & N0 


LAB2 EQU S$A851 
LAB3 EQU $D941 
RDKEY  EQU S$SFDOC 
SCROLL EQU S$FC70 
SETTXT EQU S$FB39 


, vp EQU SFCIA 
17 ORG S592B3 
18 
19 
20 * CHARGEMENT DE AMPERV 
| 21 LDX #$02 
22 BO LDA ADRO,X 
23 STA S$03F5,X 
24 DEX 
| 25 BPL BHO 
26 * CHARGEMENT DE 
L'ADRESSE DE LA 
TABLE 10B 
DGA POUR RATS 
28 LDX #501 
29 B1 LDA ADRI+1,X 
30 STA ADR3,X 
31 DEX 
32 BPL B1 
33 * CHARGEMENT DE 
L'ADRESSE DE LA 
TABLE DES 
34 * CARACTERISTIQUES 
DU LECTEUR 
35 LDX #$00 
36 LDA ADR2+1,X 
37 STA ADR4+1,X 
38 INX 
39 LDA ADR2+1,X 
40 INX 
41 STA ADR4+1,X 
42 JMP  ADR5 
43 ADRO UMP  ADR6 
44 ADRI UMP  ADR7 
45 ADR2 UMP  ADR8 
46 * 
47 * DEBUT DE ‘6 
48 * 
49 * INTERPRETATION 
DES COMMANDES 
50 ADR6 LDX #500 
51 STX S$19 
52 B3 LDY #$00 
53 B2 LDA TCI,X 
: 54 BEQ ADR9 
55 CM  #SFF 
56 BEQ ADR10 
57 CMP  ($B8),Y 
58 BNE ADR11 
59 INY 
60 INX 
61 BNE B2 
62 ADR1IO JMP LAB1 
63 ADRI1I INX 
64 LDA TCI,X 
65 BNE ADRII 
66 INX 
67 INC S$19 
68 BNE B3 
69 ADR9 USR  ADDON 
70 ASL $519 
71 ASL $19 
72 LDX 519 
73 LDA ADR12+2,X 
74 PHA 
75 LDA ADRI12+1,X 
76 PHA 
o 
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RTS 
* TABLE DES 
COMMANDES DE ‘'&' 
TC1 HEX A800 
HEX ES00 
HEX B100 
HEX BD00 
ASC  'SCROLL' 
HEX 8500 
ASC  'RNWTS' 
HEX 00 
HEX 874E4D24 
HEX CFOOFF 
* ADRESSES DES 
COMMANDES 
ADR12 JSR ADR13+2 


USR ADRI14 
JSR  ADRIS 
JSR ADRI6 
JSR ADR17 
USR ADRIS 


ADR13 JSR ADR19+2 


* 


* DEBUT DE &STORE 

* 

* CHARGEMENT DE 
"CES CF" 


STA $CF 
* MISE À ZERO 
DE LA PILE 
PLA 
TAY 
PLA 
LDX #$FF 
TXS 
PHA 
TYA 
PHA 
ADRI14 RTS 
* 


* DEBUT DE &VAL 
* 
* CE.CF = 0 ? 
SI OUI "RTS" 
ADR30 LDA $CE 
CEC 
ADC $CE 
BNE ADR20 
RTS 
* CE.CP = F9.FA ? 
SI OUI "RTS" 
ADR20 LDA $CE 
CMP $F9 
BNE ADR21 
LDA $CF 
CMP $FA 
BNE ADR21 
RTS 
+ EMPILEMENT DE 
CE.CF EN F9.FA 
ADR21  LDX #$03 
B4 LDA SF9,X 
STA S$SFB,X 
DEX 
BPL B4 
LDA S$CE 
STA S$F9 
LDA $CF 
STA SFA 
* MISE À ZERO DE CE.C 
LDA #$00 
STA $CE 
STA S$CF 
ADR1S RTS 


* 


* DEBUT DE &RETURN 


156 
157 


158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 


176 
TT 
178 
179 
180 
181 

182 
183 
184 
185 

186 
187 
188 
189 
190 
291 

1:92 
193 
194 


195 
196 
197 
198 
199 
200 
201 
202 
203 
204 


205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 


219 
220 
221 
222 
223 
224 
225 
226 
227 


228 
229 
230 
231 
232 


233 


* 
* FA.F9 = 0 ? 
SI OUI "RTS" 
B6 LDA $F9 
CLC 
ADC  $FA 
BNE ADR22 
RTS 
* CHARGEMENT LINNUM 
ADR22 LDA $F3 
STA $50 
LDA $FA 
STA $51 
* DEPILEMENT DE F9.FA 
LDX #$00 
B5 LDA $FB,X 
STA $F9,X 
INX 
CPX #$04 
BCC BS5 
* SI LINNUM=CE.CF 
REPRENDRE &RETURN 
LDA $CE 
CMP  $50 
BNE ADR44 
LDA $CF 
CMP  $51 
BEO B6 
ADR44 LDA #$00 
STA  $FD 
STA $FE 
* REINITIALISATION 
LDA #$FF 
STA S$32 
LDA  #$F0 
STA $36 
LDA  #$FD 
STA #37 
JSR SETTXT 
JSR  LAB2 
* GO TO LINNUM 
SINON ERREUR 
JSR FNDLIN 
BCC ADR23 
JM  LAB3 
ADR23 LDX  #$5A 
JMP  ERROR 
ADR16 RTS 


* 
* DEBUT DE &CLEAR 
* 


* MISE À ZERO DE 


LA PILE F9... 

ADRS LDA #$00 
LDX #$05 

B7 STA $F9,.X 
DEX 
BPL B7 

*MISE À ZERO DE CE.CF 
STA $CE 
STA $CF 

ADR17 RTS 


* 
* DEBUT DE &SCROLL DEL 


* CHARGEMENT DE CSW: 
+ ADRESSE DE LA 
ROUTINE DE SORTIE 
* DE CARACTERES. 
LDA  ADR24+1 
STA $36 
LDA ADR24+2 
STA $37 
USR  LAB2 


ADR24 JSR  ADR25 
* ROUTINE DE SORTIE 
DE CARACTERES. 
* SAUVEGARDE DES 
REGISTRES: X,Y ET À 
ADR25 STX $07 
STY $08 
PHA 
* SI POSITION DU 
CURSEUR < 23 
LDA $25 
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234 
235 
236 * ALCRS: 


JUMP FDF0 


237 B8 
238 


239 * SINON: SI ACCUMULATEUR 


CMP #516 
BEQ ADR26 


{COUT1) 
PLA 
JMP  COUTI1 


A<>RETURN OU 
240 * POSITION HORIZONTALE 
DU CURSEUR < 39 


241 * ALORS: 


JUMP FDFO  (COUT1) 
242 ADR26  PLA 
243 PHA 
244 CMP  #58D 
245 BEQ ADR27 
246 LDA $24 
247 CMP #$27 
248 BCC B8 
249 * SINON: 


250 * IMPRIMER LE MESSAGE 
EN BAS DE L'ECRAN. 


251 ADR27 
252 B9 
253 

254 

255 

256 


LDY #$00 
LDA CH,Y 
STA $07D5,Y 
INY 

CPY 4527 
BNE B3 


257 * ENTREE D'UN 
CARACTERE AU CLAVIER 


258 JSR RDKEY 
259 CMP  #59B 
260 BNE  ADR28 
LOTS SIN SES CS 
262 * ALORS: CONTROLE DE 
F9.FA PUIS €&RETURN 
263 LDA $F9 
264 CLC 
265 ADC SFA 
266 BEC ADR29 
267 PLA 
268 STA $06 
269 LDA #$BD 
270 STA 536 
271 LDA #$9E 
272 STA 37 
278 JSR LAB2 
274 UMP  B6 
275 ADR29 USR BELL 
276 * SINON: 
EFFACER LE MESSASE. 
277 ADR28 LDY 4500 
278 LDA #$A0 
279 B10 STA $07D0,Y 
280 INY 
281 CPY #527 
282 BNE B10 


283 * REMONTER LE TEXTE 
DE 16 LIGNES. 


284 LDY 4#$00 
285 B11 STY 506 
286 USR  SCROLL 
287 USR VP 
288 LDY $06 
289 INY 
290 CPY #$0F 
291 BNE B11 
292 * FAIRE &VAL PUIS 
IMPRIMER LE 
CARACTERE. 
293 USR  ADR30 
294 PLA 
295 LDX $07 
296 LDY $08 
297. UMP  COUTI1 


298 * MESSAGE EN 
MODE INVERSE: 


299 * "POUR 


CONTINUER 


TAPER SUR UNE 


HEX 2020100F1 


51220030F0E1409 


HEX 0E1505122 


0140110051220 


TOUCHE." 
300 CH 
301 
302 


HEX 1315112201 
S50E0520140F 1503 


BEX 
O0ACGAUA0A0A0 
ADRI& BRK 
ZDA 
STA 
LDA 
STA 
LDX 
B12 INX 
DEC 
INC 


ADR 


ADRB CRA 


ADR31 ORA 
ADR3 CMP 
ADR32 


ADR7 


ADR33 LDA 


ADR93 LDA 


B14 LDA 


B13 LDY 


ADR35 INX 


ADR37 CLC 


ADR34 LDY 


ADR36 INC 


B16 LDA 


08052E 202 


#510 
ADR31+1 
#$51F 
ADR32 
#$00 


ADR31+1 
ADR32 


ADR4 


#510 
B12 


ADR33 
#5C8 
4594 
$03D9 


($60, x) 
($00, X) 
($00),Y 
$0094, Y 
2F 


{$00,X) 
S0160,X 


{($EF, X} 


#500 
$SID 
#$30 
$IE 
#$00 
$18 
#520 
$1A 
#$0B 
$19 
#$00 
#500 
($19),Y 
#$00 
ADR34 
#SFF 
ADR35 
#$02 
($19),Y 

#$500 
ADR36 


#507 
ADR 37 


$19 
#523 
$19 
B13 


S1A 

#501 
$1A 

B14 
#502 
#500 
(569),Y 


$18 
($69),Y 


$18 
$19 
$1B 
SIA 
$1C 


ADR38 
#50B 


388 
389 
390 
391 
392 
393 
394 
395 
396 
39/7 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 


418 
419 
420 
921 


B15 


ADR38 


ADR40 


ADR4S5 
B17 


ADR41 


ADR39 


B19 





$19 
#$00 
#$00 
(519), 
#$500 
ADR39 
#SFF 
ADR38 
#$02 
($19),Y 
#$00 
ADR4S5 


#507 
ADR 40 


$19 
4523 
$19 
B15 


$1A 
#$01 
$1A 
B16 
#503 
($19),Y 
{S1B}),Y 
ADR41 
ADR38 


#$20 
B17 
$19 
$1B 
$1A 
$1C 


ADR38 
#501 
$1B 


4503 
($1D),Y 


$iC 
{$1D),Y 
#520 
{($1B),Y 
#50 
ADR492 


#503 
B18 


#$02 
#500 
($1D),Y 


($1B),Y 
#57F 
{($1B),Y 


#502 
B19 


$1D 
#$503 
$1D 
91E 
#500 
$1E 
#500 
#FF 
f$1B),Y 
ADR93 
FRMNUM 
CONINT 


$69 
4509 
$19 
°6A 
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474 ADC  #$00 
475 STA SIA 
476 LDA  #$FD 
477 STA $1B 
478 LDA #$2F 
479 STA $1C 
480 B20 CEC 

481 LDA $1B 
482 ADC #$03 
483 STA $1B 
484 LDA SIC 
485 ADC #$00 
486 STA $iC 
487 DEX 

488 BNE B20 
489 LDY #$03 
490 B21 DEY 

491 LDA ($1B},Y 
492 STA ($19),Y 
493 CPY #$00 
494 BNE B21 
495 RTS 


Récapitulation 
‘BIBLI.AMPER’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE BIBLLAMPER,A$92B3,L$34D 
92B3- A2 02 BD DC 92 

92B8- 9D FS 03 CA 10 F7 A2 01 
92C0- BD E0 92 9D CE 94 CA 10 
92C8- F7 A2 00 BD E3 92 9D 
92D0- 94 E8 BD E3 92 E& 9D CO 
92D8- 94 4C DF 93 4C ES 92 
92E0- D9 94 4C C8 94 A2 00 86 
92E8- 19 AO 00 BD 1C FO 1A 
92F0- C9 FF FO 08 D1 DO 07 
92F8- C8 E8 DO EF 4C C9 DE 
9300- BB 1C 93 DO FA E6 
9308- DO DF 20 98 D9 06 19 06 
9310- 19 A6 19 BD 3A 93 48 
9318- 39 93 48 60 A8 00 ES 00 
9320- B1 00 BD 00 53 43 52 4F 
9328- 4C 4C 85 00 52 57 54 53 
9330- 00 87 4E 4D 24 CF 00 
9338- 20 52 93 EA 20 64 93 


MBITS OFINOS 





$340- 20 91 93 


9348- 
9350- 
9358- 
9360- 
9368- 
9370- 
9378- 
9380- 
9388- 
9390- 
9398- 
93A0- 
93A8- 
93B0- 
93B8- 
93co- 
93C8- 
93D0- 
93D8- 
93E0- 
93E8- 
93F0- 
93F8- 
9400- 
9408- 
9410- 
9418- 
9420- 
9428- 
9430- 
9438- 
9440- 
9448- 
9450- 
9458- 
9460- 
9468- 
9470- 
9478- 
9480- 
9488- 
9490- 
9498- 


20 
20 
76 
9A 
65 
F9 
01 

CA 
CF 
CF 
01 

85 
E8 
50 
D9 
BF 
FD 
A8 
D9 
00 
85 

85 

31 

84 
04 

8D 
FO 
07 


EC 93 
C8 95 AS 75 85 
85 CF 68 
48 98 48 60 A5 
CF 
DO 07 


TI 





EA 
EA 
A5 

FF 
18 
CS 
DO 
FB 
AS 
85 
DO 
FA 
F9 
(er 
FO 
A9 
A9 
S1 

41 

A9 
FB 
93 
20 
07 
FO 
C9 
90 
DO 
OC 
18 
A9 
20 
BF 
C8 
06 
06 
93 
FD 
03 


12 
13 
14 
20 
10 





94A0- 8D CD 94 A9 1F 8D D1 94 
94A8- A2 00 E8 CE CD 94 EE D1 
94B0- 94 8A 48 20 BF 94 68 AA 
94B8- EO 10 DO EF 18 90 1E AO 
94C0- C8 A9 94 20 D9 03 D8 60 
94C8- 01 60 01 00 11 00 29 94 
94D0- 00 2F 00 00 01 00 FE 60 
94D8- 01 00 01 EF D8 A9 00 85 
94E0- 1D A9 30 85 LE A9 00 85 
94E8- 18 A9 20 85 1A A9 OB 85 
94F0- 19 A2 00 AO 00 B1 19 C9 
94F8- 00 FO 23 C9 FF FO O8 AO 
9500- 02 BI 19 C9 00 BO 23 E8 
9508- EO 07 FO 09 18 AS 19 69 
9510- 23 85 19 90 DE 18 A5 1A 
9518- 69 01 85 1A 90 CF AO O2 
9520- A9 00 91 69 C8 AS 18 91 
9528- 69 60 E6 18 A5 19 85 1B 
9530- AS 1A 85 1C 18 90 1A A9 
9538- 0B 85 19 A2 CO AO O0 B1 
9540- 19 C9 00 FO 3D C9 FF FO 
9548- 08 AO 02 B1 19 C9 OC BO 
9550- 17 E8 EO 07 FO 09 18 AS 
9558- 19 69 23 85 19 90 DE 18 
9560- AS 1A 69 01 85 1A 90 CF 


9568- 
9570- DO 
9578- 
9580- 90 CF AO O1 
9588- 03 91 ID 
9590- 
9598- 88 CO 03 DO 
95A0- 
95A8- B1 1B 29 
95B0O- 02 
95B8- 85 1D 
95CO- 
95C8- 94 20 67 
95D0- 
95D8- 69 00 85 1A 
95E0- 
95E8- 
95F0- 1C CA 
95SF8- 1B 91 19 


Pom's vous propose 


"Dominos” 


Apple Jl+, /e, /c 


Thierry Haurie 


Il est inutile de présenté le jeu de 
dominos, celui-ci bénéficie d'un 
graphisme très soigné (en couleur si 
vous disposez d'une carte "Chat 
Mauve") et les messages transmis 
par le programme sont, au choix, en 
Français, en Italien, en Allemand ou 
en Anglais. 


80.00 F TTC franco 
Bon de commande page 74 
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Patches au DOS 3.5 


Les petites améliorations au DOS 
3.3 proposées ici sont les 
suivantes : 


* obtention du CATALOG 
simplement par le slash (/). Nous 
devons être nombreux à frapper 
CATALOF ou à oublier des lettres 
en voulant taper trop vite. 


+ lancement des programmes 
Applesoft, Binaires ou fichiers 
Exec par l'unique commande ‘-?. 
Les fichiers INTEGER ne 
peuvent plus être utilisés car les 
patches occupent les 
emplacement de FP et INT. 


* recherche du fichier désiré sur 
les deux lecteurs sans avoir à 
spécifier Di ou D2 chaque fois 
qu'il est nécessaire. Bien-sûr, si 
le fichier n'existe sur aucun des 
deux lecteurs, le message FILE 
NOT FOUND apparaîtra comme 
d'habitude. En cas de VOLUME 
MISMATCH ou de I/0 ERROR, 
le patch cherchera également sur 
l'autre lecteur. 


Pour bénéficier de ces nouvelles 
commandes à chaque fois que 
vous booterez votre disquette, il 
suffira de taper ‘BRUN 
DOSPATCH' puis ‘INIT 
HELLO" comme pour initialiser 
une disquette avec un DOS 
nonnal. 


Les routines utilisées 


L'organisaton interne 
des tables du DOS 


Les tables tout d'abord : en ce qui 
concerne les mots-clé du DOS tels 
que CATALOG, LOAD etc. elles 
sont au nombre de trois. 


1) La liste des mots-clé 

($A884.A908). Cette table 
contient tous leurs caractères 
ASCII. La dernière lettre de 
chaque commande a son bit 7 à 1. 
ue INIT est code $49 $4E $49 
$D4 


2) Juste après ($A909.A940) 
vient une table qui indique à 
l'aide de deux octets par 
commande quelles sont les 
modalités d'utilisation de chacune 
d'entre-elles. 
Chaque octet étant constitué de 8 
bits, nous avons donc 16 bits au 
total à prendre en compte. En 
considérant que dans $8000 c'est 
le bit O qui est à 1 (pour une fois 
on compte de gauche à droite !) 
on obtient la table rappelée en 
encadré. 


Patrice Neveu 


3) La 3ème table ($9DIE.9D55) 
contient les points d'entrée de 
chaque commande, soit deux 
octets par commande. On apprend 
ainsi que la routine INIT 
commence en $AS4F. 
Avec ces tables il devient possible 
de modifier, rajouter ou enlever 
des commandes au DOS 3.3. 
Nous possédons en effet tous les 
éléments la syntaxe des 
commandes, leurs modalités 
d'utilisation et les adresses de 
leurs routines. 


Table d'utilisation des commandes 


g 


Signification 


C, |, O, sont autorisés 
V (Volume) est autorisé 
D (Brive) est autorisé 
S (Slot) est autorisé 

L (Length) est autorisé 
R (Range) est autorisé 
B (Byte) est autorisé 

À (Adress) est autorisé 


@ Oo 4 Oo ON & UN = © 


Exemple : 
Pour l'ordre INIT, on obtient 2070 : 


8: 4 m2. 1 


2 3 4 5 6 


Valeur : Derde 2 


Numéro: O0 1 





Le nom de fichier est optionnel 

I n'y a pas de paramètre de position (Catalog, Mon...) 
Premier nom de fichier attendu 

Deuxième nom de fichier attendu (Rename) 

Numéro de slot indispensable (PR#, IN#) 

Valeur de Maxfiles attendue comme opérande 
Commande accessible uniquement par programme 
Commande créant un nouveau fichier s'il n'existe pas 


four 4 2 À 
e e e ee 


7 8 9 10 


8 4 2 1 


12 13 14 15 


Slot autorisé 
Drive autorisé 
Volume autorisé 
Nouveau fichier 


Nom obligatoire 
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Nous allons donc voir comme 
exemple le cas du remplacement 
de FP par le signe ‘-’. Au sujet de 
la syntaxe, nous avions en 
$A8EF: 
FPINTBSAVEBLOADBRUNVER 
IFY 

que l'on doit remplacer par 
$A8EF: 
—INTBSAVEBLOADBRUNVERI 
FY0 

(les caractères gras représentent 
ceux dont le bit de poids fort est à 


1). 


Pour plus de simplicité, la routine 
de Run Universel sera implantée à 
la place de celle de FP 
($AS7A.AS9D) ; il n'est donc pas 
nécessaire de changer la 3ème 
table. Par contre, la seconde où 
sont les paramètres à utiliser , ne 
correspond plus ; il y avait $4070 
et il faut $A075 (se reporter au 
tableau de signification des bits). 


Et voilà, il ne reste plus qu'à 
écrire la routine qui sera exécutée 
à chaque ‘-”. Elle commence par 
ouvrir le fichier dont le nom suit 
($A2A8). Ensuite, il faut 
connaître le type du fichier que 
l'on vient d'ouvrir. Ce 
renseignement est stocké en 
$B5C2 de cette manière : O = 
Text ; 2 = Applesoft ; 4 = 
Binaire. Selon le résultat trouvé 
on saute faire un BRUN 
($A38E), un RUN($A4D1) ou un 
EXEC ($ASC6). 


En ce qui concerne la recherche 
d'un fichier sur les deux lecteurs, 
la mise en place est plus délicate 
car on doit se brancher 
directement sur la routine de 
traitement des erreuis. 


Voici donc les grandes lignes de 
son fonctionnement : dès qu'une 
erreur se produit, le DOS saute en 
$A6DS. Nous allons donc y 
placer un saut vers notre routine 
BIDRIVE implantée en $A594 à 
la place de INT. Celle-ci va lire le 
numéro de l'erreur ($B5CS). Si 
ce n'est pas le code de FILE NOT 
FOUND (6), ni de VOLUME 
MISMATCH (7) ou de I/0 
ERROR (8) alors on revient à la 
routine ERRHANDLE. Sinon, on 
change de lecteur puis on vérifie 
si un changement a déjà été 
effectué juste avant. Si oui, le 
fichier n'est pas dans un des 
lecteurs et on va alors afficher 
l'erreur en repassant par 
ERRHANDLE. Autrement, on 
lance la commande demandée par 
un saut en DOCMD ($A180). 


Ce changement de lecteur 
fonctionne donc sur tous les 
ordres accompagnés d'un nom de 
fichier et ces patches peuvent être 
rajoutés non seulement au DOS 
3.3 mais aussi au DIVERSI-DOS, 
et généralement sur tous les DOS 
3.3 “améliorés”. . 





Comment faire ? 


Mettre au point ce programme était délicat, l'utiliser est 


particulièrement simple. 


+ Faire BRUN DOSPATCH, ie DOS est alors modifié en 


mémoire ; 


+ Initialiser une disquette (INIT HELLO par exemple) à l'aide 


de ce DOS nouveau style. 


Maintenant en ‘bootant' sur la disquette ainsi préparée, vous 
disposez du smart run de type ProDOS, du CATALOG par le 
/, mais surtout, inutile maintenant de préciser ",D1" ou ",D2"... 
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Récapitulation 


‘DOSPATCH' 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE DOSPATCH,A$2000,1$C5 


2000- A9 A9 A2 
2008- 8E B7 AS 
2010- B7 8E 
2018- B7 A9 OD 
2020- A2 8D A0 
2028- BB A6 8C 
2030- BD 
2038- 8D D5 A6 
2040- A6 AO 15 
2048- A8 88 10 
2050- 8E 35 A9 
2058- AO 70 8D 
2060- AD 3£ 9D 
2068- 9D 8D 4D 
2070- 20 99 7A 
2078- AD AF 42 
2080- 4C 4F 41 
2088- 56 45 52 
2090- A2 AD C2 
2098- C9 02 F0 
20A0- D1 A4 4C 
20A8- C9 
20B0- A9 
20B8- A5 
20C0- A1 


00 
85 


8D 
A2 


30 B7 A9 


8D B7 8E 
4A 6D 6F 
60 8D 91 


8D AC A6 A9 20 


B7 


8D 


BA A6 &E 


Æ& A6 A9 60 8D 


E6 
60 


94 AG A5 


D3 20 A8 
7F FO CA 
8E A3 4C 
AD C5 B5 
06 90 14 
8D 68 AA 
4A 4C 80 


67 
TT 
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Source ‘DOSPATCH.S’ 


Assembleur Big Mac 


SoBmBuyamues & Nr 


be ba ba fes ts bé bé be Da 
© © + on Un à Go À) me 


MERS 


ON À D N À À 
SCD nm À 


& Wu 
BSUN 


Wu 
An 


& 
© © 


Lo 
Le] 


en OO © En En En Ur Un Un On Un Un En à à & à À & à sn À 
Un à LU NF © 6 © NN A Un à LUN © © © y tn e Nr 


66 
67 
68 


69 
70 
71 


72 
73 
74 
75 
76 
77 
?8 
79 








LST OFF 
dérisissssosssssét##orotrrrhht#sss 
* PATCHES AU DOS 3.3 , 
L * 
* 1} / PERMET LE CATALOG. , 
#* 2) — LANCE LES FICHIERS A/B/T * 
#* 3} Fe ET INT SONT SUPPRIMES #* 
#* 4) RECHERCHE SUR 2 DRIVES LE # 
, FICHIER 6 VOLUME DEMANDES #* 
L LA 
#4+:PATRICE#NEVEU*?LE+8/7/854#rt+ 
ORG $2000 
©8J $8000 
DRIVESN  EQU $4A = 1 AFRES CHANGEMENT DE DR 
IÆ 
DOSADR17 EQU S9D3E ADRESSE DE CATALOG 
DOSADR23 EQU $9D4c REMPLACE CELLE DE FP 
DOSORDRES EQU $ASEF PARTIE DE LA TABLE DES CO 
MANDES DOS. 
TYPEFOUND EQU $85C2 VOLUME DU FICHIER OUVERT 
ERRNUM EQU $85C5 CODE D'ERREUR 
CLeSEALL EQU $A316 FERME TS FICHIERS OUVERTS 
OPEN EQU $A2A8 ROUTINE OJVERTURE FICHIER 
DOCMD EQU $A180 EXECUTE LA COMMANDE DOS 
PATCH EQU $A57A ADRESSE DU PATCH DE RUN UN 
IVERSEL 
PATCHI EQU $A594 ADRESSE DU BIORIVE 
PATCH2 EQU $5578D ROUTINE FIXANT DRIVESW = 0 
BRUNHAND EQU $A38E FAIT UN SRUN 
RUNHAND  EQU $A4D1 RUN 
EXECHAND EQU $A5C6 EXEC 
GOODOBEN EQU $A6BA VA ICI LORSQUE LE F'ICHIER 
A ETE OUVERT 
ERRHANDLE EQU $A6D5 EST LANCE LORS D'ERREURS 
DRIVENUM EQU $AA63 «1 ST DRIVE 1 
»2 SI DRIVE 2 BRANCHE 
PATCHDOS EQU $BFE6 PATCH DES DERNIERS DOS 3-3 
(JANVIER 83) 
lanman--nocnmmeanmeneanenmananasese— 
#* ROUTINE AMNULANT DRIVESW 
Dm mm pommmmemmmmmmm mm mm 
LDA #$2A9 PATCH2 LDA #0 
LDX #50 STA DRIVESY# 
STA PATCH2 RTS 
STX PATCH2+1 
LDA 8585 
LDX #DRIVESW 
STA PATCH252 
STX PATCH233 
LOA #560 
STA PATCH2+4 
fss=msessssss en ——— 
* SI LE FICHIER EST TROUVE, ALORS 
# DRIVESW = 0. 
mm mm mm mm mm mme 
LDA #$0D LE BCC EST AVANCE DE 9 OCT 
STA SA6SAC SI PAS D'ERREURS. 
LDA #520 IL VA ICI, OU 4 OCTETS ETA 
IENT LIBRES 
LDX #<PATCH2 MAINTENANT, ON SAUTE À FAT 
CH2, C'ESTA 
LOY #>PATCH2 DIRE QU'ON FAIT DRIVES#=0 
LORSQU'UNE 
STA GOODOPEN COMMANDE DOS 4 ETE EFFECTU 
£Ë SANS 
STX GOODOPEN +] ERREUR. 
STY GOODOPEN+2 
LDA #$60 ET ON CONTINUE LE TRAITEME 
NT NORMAL 
STA GOODOPEN+3 
RE RS RSS SR RSR SRE ARR 
+ ERREUR --> CHANGE DE BRIVE 
Msn sie mm —————mm—m—m—m—m 
LDA #$$20 $20 EST LE CODE DE 'JMP' 
LDX #CPATCHI ON PATCHE LE TRAITEMENT DE 


80 
81 
82 


83 
84 
85 
86 
87 
88 
83 


30 
91 


92 
93 
94 
95 
96 
97 
938 
99 
160 


101 
102 


103 
104 
105 


106 
107 
108 
109 
110 
221 

112 
113 

114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 


125 


126 
2127 
128 
129 
130 


131 
132 
133 
134 


135 
136 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
199 


150 
151 
152 


153 
154 





LDY #>PATCHI 
STA ERRHANDLE 
STX ERRHANDLE+] 


STY ERRHANDLE+2 


S ERREURS: 
AVANT DE FAIRE OCHMME D'HAS 
ITUDE, ON 

VERIFIE SI C'EST CODE6 (FI 
LE NOT FOUND) 
CAR DANS CE CAS, 
T PAS PERDU ! 


TOUT N'ES 


É—_——nmmsmmmm————mmmmmmm—mm—— 


*x CHANGE LA TABLE DES MOT_CLES 


LDY #M@TSEND-MOTSDOS CAR DES MOT-CLES ONT ETE 


CHNG4OTS LDA MOTSDOS, Y 
STA DOSORDRES, Y 


DEY 
BPL CHNGMOTS 


RAJOUTES ET 

D'AUTRES ENLEVES: 
/ — RAJOGTES, FP INT VERIF 
Y ENLEVES 


+ CHANGE LA TABLE DES MOT-CLES 


* POSSIBLES ($A909.A940) 


d—mmmmmm mm mm 


LDX #$A0 
LDYx 4575 
STX $A935 
STY $A936 


LDA 4$40 


ram 


LE RUN UNIVERSEL PE ETRE 
SUIVI 


DES MOTS: À (BRUN), R (EXE 
C}, SD, v. 

D'ON NOM OBLIGATOIRE {BRON 
/EXEC) 


OÙ FACULTATIF (RUN) 


LE SLASH REPOND AUX MEMES 
PARAMETRES 
QUE LE CATALOG. 


+ SIGNALE QUE / EST UN CATALOG 


LDA DOSADR 17 
STA DOSADR23 
LDA DOSADR17+1 
STA OOSADR23+1 


* INSTALLATION DE LA ROUTINE DE 


#* RUN UNIVERSEL ET BIDRIVE 


É——————mmmm——mmmmmmmmm——— 


LDY FBIDRIVEND-UNIRUN CALCUL DE LA LONGUEUR D 


INSTAL LDA UNIRUN, YŸ 
STA PATCH, Y 
DEY 

BPL INSTAL 


RTS 


MOTSDGS ASC. =? 


ASC "BSAV" 


ASC "E* 

’BLOA' 
ASC “D” 
ASC "BRU" 
ASC °N” 
ASC ‘'VERIF* 

HOTSEND ASC “Y" 


E LA ROUTINE 
POUR POUVOIR LA TRANSFER 
ER... 


LE DOS EST MAINTENANT MODY 
FIE. 


LES MOT-CLES SONT CODES 
AINSI: 

LES PREMIERS CODES ASCII 
AVEC BIT 8 = 0 

PUIS LE DERNIER AVEC BIT 8 
= 1 


me ue mm me mm mm mm 


# ROUTINE 3 EN 1 


UNTRUN JSR OPEN 
LDA TYPEFOUND 
AND #4$7F 
BEQ EXEC 


CMP 42 
BEQ RUN 


ON VA OUVRIR C£E QUI NOUS I 
NTERESSE 

ON REGAROE LE TYPE DÜ FICHK 
TER 

ON LE DE-LOCK (LOCK —> BI 
T 8 = i) 

CODE0 = TEXT 

CODEZ = APPLESOFT 


Suite de 'DOSPATCH.S’ page 72 — 
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J'ai essayé sans succès de faire tourner 
le programme ORDRALPHABETIX 
(Pom's 13). Lorsque je le 'RUNe', les 
messages «Must be linked» puis «Proc 
cours inde fined» s'affichent. Que faire ? 
Monsieur Charles IZARD, 11400 
CASTELN AUDARY 


Pour créer le module exécutabie 
ORDRALPHA.CODE, il est nécessaire 
d'effectuer les opérations suivantes : 


+ saisir les sources avec l'éditeur 
Pascal, ou utiliser le programme 
Basic->Pascal de la disquette Pom's 
pour transférer les fichiers du DOS 
3.3 vers le Pascal. Vous devez alors 
obtenir les sources ORDI.TEXT et 
ORD2TEXT sur un volume appelé, 
par exemple, ‘TEST!:’ ; 

* compiler ORDI.TEXT pour obtemur 
ORDICODE (ORDITEXT utilise 
le SYSTEM. LIBRARY) ; 

+ assembler ORD2.TEXT pour obtenir 
ORD2.CODE ; 


+ ‘linker’ les deux modules en tapant 
successivement depuis le niveau 
global du Pascal : 


L 

(* pour appeler le Linker *) 
TEST1:ORD1.CODE 
(*au message "Host file?" *) 
TEST1:ORD2 

(* au message “Lib file?” *) 
: SYSTEM .LIBRARY 
<répondre par un RETURN> 
N 


(* au message"Mapfile?" +*) 

TEST1:ORDRALPHA.CODE 

(* au message "Output file?" *) 
Le fichier est alors directement 
utilisable par l'option X (Execute) du 
niveau globa! du Pascal 1.1. Attention : 
le programme assembleur n'est pas 
compatible avec le Pascal 12 et devrait 
être modifié en conséquence. 


Possesseur d'un ‘vieil’ Apple !/e, j'ai 
acquis le kit de mise à jour 65C02 dès 
sa sortie. Je me trouvais donc à la tête 
d'un nouveau l/e, une sorte de super lc 
avec des slots. 

Premier choc avec Locksmith 5.0 : il 
ne fonctionne plus. Second choc : le 
logiciel de la carte EVE également. 
Troisième choc : le passage en 80 
colonnes devient risqué (perte aléatoire 
du programme en cours). La carte EVE 
accusée des problèmes est promptement 
remplacée par une Féline ; miracle, 
Locksmith et Purplesoft fonctionne à 


nouvecuii. 


Courrier 
des Lecteurs 


Questions techniques : Comment savoir 
si la touche CTRL est enfoncée 
(seule) ? idem pour SHIFT ? et CAPS 
LOCK ? et l'inverseur français! 
Monsieur Thierry MECHAIN, 17300 
ROCHEFORT 


Merci pour votre expérience. Le chip 
clavier du //e n'envoie pas d'information 
sur le bus lorsque les touches CTRL ou 
SHIFT sont enfoncées seules. Il n'est 
donc pas possible d'en déterminer l'état 
par logiciel. Il en va de même pour 
CAPS-LOCK et l'inverseur de jeux de 
caractères. 


La 36 ème piste, suite. 


Il existe une autre solution, pratique et 
rapide, pour obtenir la 36ème piste : il 
suffit de demander au DOS qu'il formate 
correctement la disquette. Un petit patch 
suffit: 
CALL -151 
BEFE: 24 [au lieu de 23] 

(nombre de pistes) 
B3EF: 24 fau lieu de 23] 
AEBS: 90 fau lieu de 8C] 

(boucle de libération des 

pistes) 
INIT HELLO 
Et voilà ! De plus, le DOS contenu sur 
cette nouvelle disquette permet lui-aussi 
un formatage ultérieur en 36 pistes. 


(N.D.L.R. : nous avons précisé entre 
crochets les anciennes valeurs contenues 
dans les adresses indiquées ; le lecteur 
devra les contrôler afin de ne pas 
modifier un DOS déjà patché ou un 
ProDOS réassemblé pour une nouvelle 
vers) On) 

À ce propos, un certain nombre d'autres 
lecteurs de disquettes compatibles 
permettent un formatage sur les 40 
pistes d'une disquette 5 pouces 1/4 (le 
drive Chinon, par exemple). Il est donc 
tentani de faire la même expérience : 


BEFE: 28 
B3Er: 28 
AEBS: A0 


Le problème se pose différemment sous 
ProDOS: celui-ci est capable de gérer 
tout type de mémoire de masse, mais il 
contient également le programme 
d'accès aux Disk]{. 

Avec la version 1.0, la réponse se 
trouve dans Beneath Apple Prodos, 
mais il y a un léger bug, il f aut taper : 
UNLOCK PRODOS 


BLOAD PRODOS, TSYS, 
AS$2000 

CALL-151 

520D: 40 [au lieu de 18] 
(8118 à $140 blocs au totai) 

BSAVE PRODOS, TSYS, 
A$2000 


Le FILER permet de formater une 
disquette et doit donc, lui-aussi, être 
UNLOCK FILER 
BLOAD FILER, 
A$2000 
4244: 40 [au lieu de IS] 


TSYS, 


79F4: 28 [au lieude 23] 
BSAVE FILER, TSYsS, 
A$2000 


Les routines s'étant déplacées dans la 
nouvelle version PRODOS 1.1.1, les 
modifications sont à f aire ainsi : 

Pour ProDOS : 


S6E£3: 40 
Pour le Filer 

42A1: 40 
7AF4: 28 


Enfin, deux octets du CONVERT qui 
intéresseront les possesseurs de 
disquettes DOS 3.3 en format non 
sadard : 

30E4 conüent $11 

30EB contient $0F, c'est-à-dire l'adresse 
physique du début du catalogue. 

En remplaçant les valeurs d'origine 
comme ci-dessous : 

30r9: 29 

30rA: 10 

CONVERT sera en mesure de lire toute 
disquette DOS 3.3 formatée en 35, 36 
ou 40 pistes. 


Jacques REY, 77000 Melun 
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Joli feu d'artifice de début 
d'année. Avec l'introduction du 
Macintosh Plus, Apple a tiré 
quelques solides caïtouches. 
Nanti d'une mémoire augmentée, 
d'un clavier élargi et d'une 
interface pour périphéti- ques à 
transfert rapide, le nouveau 
Macintosh s'implantera- t-il dans 
les entreprises ? C'est ce que l'on 
souhaite à (Cupertino, où 
l'objectif avoué de John Sculley 
est d'augmenter les ventes de 
Macintosh de 30%. 


Compatibilité ? 


En attendant, quelques posses- 
seurs dc Macintosh traditionnels 
se font des cheveux : leurs 
programmes et ustensiles favoris 
fonctionneront-ils sur le 
Macintosh Plus ? Pourquoi faut-il 
teujeurs que le progrès passe par 
des sacrifices ? En effet, après 
une périede "sèche" en matière de 
logiciels, le Macintosh était arrivé 
à une sorte de matuiité et les 
utilisateurs avaient pris leurs 
habitudes dans le menu 
“Pomme”, des accessoires de 
bureau bien utiles (comme 
MacTracks, un éditeur de macro 
commandes permettant de déclen- 
cher d'un doigt l'impression d'un 
document), reliés par les prises 
BB9 des accessoires comme le 
numériseur d'images Thunder- 
scan. Las! Voici par exemple un 
logiciel et un accessoire qui ne 
fonctionnent plus sur le 
Macintosh Plus. Car, dans 
certains cas, {e Macintosh Plus 
sera un “Macintosh Moins”. En 
cause, pour le logiciel, le 
nouveau système d'organisation 
hiérarchique des fichiers : le HFS 

(Hierarchical File System). A 
cause de lui, de nombreux 
utilitaires et notamment 
MacTracks ne fonctionnent plus 
du tout sur le Plus. Tout comme 
les programmes MacLion, 
MacExpert et Through the 

looking glass. Toute une série 
d'autres exigent qu'on leur 
conserve leur système d'origine 
et qu'on n'y installe surtout pas le 
nouveau système avec le Finder 
S.1 (comme Crunch, Expert 

Lisp, Helix, Mac Publisher, 
Smooth Talker, le Macintosh 

Development System - c'est un 
comble! - etc). Enfin, d'autres 
(comme le Switcher, PageMaker, 
TK Solver, TéléMac, @mnis3, 
M acDrafi, etc) exigent que les 
fichiers ou fichier d'aide, ou 
applications (dans le cas du 
Switcher) se trouvent dans le 
même dossier. 


Plus de mémoire 


Les ennuis ne se bornent pas 
qu'au logiciel. L'utilisation de 
prises “Min Din” non standar- 
disées pour relier au Macintosh 
Plus l'imprimante ou le modem 
ont provoqué en février un vent 
de panique : personne n'en dispo- 
sait, et les Macintosh Plus ne 
pouvaient imprimer. Et pas 
possible de bricoler un câble, car 
ces prises sont introuvables au 


magasin d'électronique du coin. 


Autre problème : ces prises ont 
été modifiées. L'un des contacts 
de la prise permettait d'extraire du 
Macintosh du courant en 5 volts, 
ce qui alimentait notamment le 
numériseur Thunderscan. Con- 
clusion : mème avec le nouveau 
câble, les accessoires comme le 
Thunderscan ne fonctionneront 
pas, il faudra leur ajouter une 
alimentation extérieure. Mais on 
pardonne tout avec la stupéfiante 
amélioraion des perfortnances du 
Macintosh Plus (qui sera dès l'été 
extensible à 4 Mégas de mémoire 
vive avec les nouveaux boitiers 
mémoire de 1 Méga). Et aussi 
grâce aux prix peu élevés 
appliqués par Apple France pour 
la transformation des Mac 
existants en Macintosh Plus. Tout 
ceci suffira-t-il à assurer les 
ventes d'Apple ? 


Le futur Mac modulaire 


M ne faudrait pas s'imaginer que 
la finne à la pomme entend 
désonnais se reposer sur ses 
lauriers. Les efforts des 
ingénieurs de Cupertino se 
portent maintenant sur deux 
fronts : celui du Macintosh 
medulaire et celui de l'Apple /{. 
Un nouveau Mac en trois 
morceaux (clavier, unité centrale 
et moniteur) pourrait être présenté 
soit à la fin de l'été, soit en début 
1987. Il comporterait le 
processeur de la série 68000 
baprsé 68020 (le grand frère de 
celui du Mac). Il aurait surtout la 
paiticularité d'être une machine 
“ouverte”. Acceptant ainsi des 
cartes d'extension, des disques 
durs internes ec. 


Côté Apple //, on parle désormais 
de deux produits. L'un, de bas de 
gamme, serait un benjamin de 
l'Apple //e vendu 500 dollars ou 
moins. Le second serait le 
fameux Apple // équipé d'un 
processeur 16 bits : c'est le 
vaisseau fantôme de la micro 
informatique, on en parle depuis 
ai moins deux ans, mais il finira 
bien par arriver. Rendez-vous 
peut être à l'automne. 


Les efforts d'Apple vont surtout 
viser désormais tro 1sdireclions : 
l'harmonisation de ses deux 
gammes de produits, la commu- 
nicaäon et Le perfectionnernent de 
l'édiu on élecironique. Avec deux 
buts : assurer la cohérence des 
produits (ei l2 compatibilité entre 
Macintosh et Apple //), et tenter 
par le biais de la communication 
(et la compatibilité avec les 
fichiers de l'BM PC) et de 
l'édition d'implanter le Macintosh 
Plus dans les entreprises. 


Harmonisation des 
gammes : 

le programme 
commun 


Voici donc les Apple // et les Mac 
dotés d'une série de périphéri- 
ques communs : modems, impri- 
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mantes, lecteurs de disquettes. 
C'est probablement ce change- 
ment là qui est le plus significa- 
tif : le Mac et l'Apple // utilisent 
dorénavant les mêmes disquettes 
de 800 Ko. On verra prochaine- 
ment un utilitaire permettant de 
convertir les fichiers du Mac en 
Prodos pour pouvoir les utiliser 
sur l'Apple //. Et bientôt, les 
disques durs seront, eux aussi, 
communs aux deux gammes, en 
attendant un Apple // capable 
d'émuler le fonctionnement du 
Mac. Dans le sens inverse, il faut 
remarquer l'étonnant logiciel 
Mac+1l dû à un jeune auteur 
prodige : David Hemmo et 
distribué par JRD. Ce produit se 
compose d'un câble destiné à 
relier l'Apple // au Mac etde deux 
logiciels, l'un pour l'Apple // 
(ransférant le contenu des ROMs 
de celui-ci vers le Mac), l'autre 
pour le Macintosh (une adaptation 
du DOS 3,3 ). À la mise en route, 
le contenu des ROMs de 
l'Apple // est transféré vers le 
Mac. Un programme baptisé 
MacCom pour l'Apple // et un 
autre appelé MacDos pour le 
Macintosh permettent de 
transférer surie Mac progranunes 
et fichiers de l'Apple //. À en 
croire son auteur, ce programme 
pernet de faire toumer sur le Mac 
pratiquement tous les 
programmes de l'Apple //. Prix : 
1950,00 F. Bien utile pour les 
nouveaux convertis au Mac qui 
ont encore une vaste logithèque 
pour l'ancêtre. 


La course de vitesse est engagée : 
aux États-Unis, un autre logiciel, 
II in a Mac de Computer 
Applications permet li aussi 
de simuler le fonctionnement 
d'un Apple //. On voit même sur 
l'écran du Mac les lecteurs de 
disquettes, le modem et le 
joystick. Prix : 50 dollars. 


La communication 


C'est un atout indispensable à la 
réussite du Mac Plus qui devra 
aussi bien pour s'imposer pou- 
voir sintégrer dans des réseaux 
locaux que pouvoir être connecté 
à des gros ordinateurs. Lors de la 
présentation du Mac Plus, John 
Sculley a donc bien insisté sur les 
accords signés avec d'importants 
partenaires. Avec Northern 
Telecom, un géant américain 
des télécommunications, pour 
pennettre l'utilisation des lignes 
ordinaires et des centraux 
électroniques pour connecter les 
Mac à d'autres ordinateurs et 


périphériques. Avec General 
Electric Information Servi- 
ces (la filiale communication de 
General Electrics), pour pouvoir 
relier le Macintosh au réseau 
Dealertalk permettant à des 
sociétés de relier jes sièges 
centraux aux filiales et aux 
concessionnaires. Ce réseau 
comporte un logiciel de base de 
données, un bulletin élecwonique 
et du courrier électroru que. Le 
contrat permet d'utiliser les gros 
ordinateurs de General Electics. 


Un autre accord lie Apple à Dow 
Jones, pour l'accès aux infortna- 
tions boursières. Dow Jones a 
ainsi développé pour le Mac. Plus 
un logiciel : Stralght Taik 
pennettant l'accès automatique 
aux bases de données de Dow 
Jones 


Un produit existe déjà permnettant 
de relier le Macintosh aux IBM 
PC. C'est le PC MacBrldge de 
Taagent Technologies. La 
carte permet en fait de relier un 
IBM PC à un réseau AppleTalk 


En France, Alpha Systèmes a 
développé le Netway 1000 A, 
qui remplace un contrôleur 3274, 
émule un terminal 3278 et dessert 
un résean AppleTalk pennettant à 
31 Macintosh (et à 16 d'entre eux 
simultanément) de se connecter à 
un ordinateur central. 


Dans les entrepnises, la communi- 
cation passera par des serveurs de 
réseau. Celui d'Apple n'est tou- 
jours pas annoncé. En attendant, 
voici le 3Com 3 Server de 
3Com composé d'un disque dur 
de 36 Méga-octets. Au travers 
des réseaux Ethernet et Appletalk, 
on peut relier entre eux des IBM 
PC et des Macintosh. Prix du 
serveur : 8000 dollars. La revue 
Infoworld qui l'a testé lui a 
accordé une note exwêmement 
élevée pour ses hautes 
perfonnances. Et 3Com vient 
d'annoncer le DiskPlus, un 
disque dur de 70 Mégas à temps 
d'accès ultra court (30 
millisecondes) se connectant à 
l'interface SCSI. 


Un autre accès au réseau Ethernet 
est possible grâce au Fastpath 
de Kinetics : une boîte noire 
s'insèrent entre le réseau 
AppleTalk et Ethernet. Prix : 
2500 dollars pour la boîte, plus 
1500 pour le logiciel K-Talk. 


Enfin, la dernière annonce 
concerne un réseau pouvant se 
partager les Hyperdrive de 
General Computer importés 
en France par P-Ingénierle. 
L'Hyperdiive, c'est cet étonnant 
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disque dur (disponible en version 
10 ou 20 Mégas) qui s'installe à 
l'intéricur du Macintosh, et est 
désormais adaptabie au 
Macintosh Plus. Ce disque était 
jusqu'alors le plus rapide. Nos 
essais personnels ont ainsi 
chronométré dans Excel un temps 
de 8 secondes pour ouvrir un 
document (contre 18 secondes 
avec un lecteur de disquettes). 

Désormais, un logiciel baptisé 
Hypernet permet d'utiliser un 
Hyperdnive comme serveur et d'y 
relier un maximum de 3] Mac par 
AppieTalk. Prix : 25900,00 F HT 
pour un Hyperdrive 20 et 
3750,00 F HT pour Hypernet. 


On trouve enfin d'autres serveurs 
aux États-Unis chez Infospbere 
avec MacServe et chez Hayes 
avec l'Interbridge, permettant 
de relier entre eux plusieurs 
réseaux AppleTalk. Enfin, la 
nouvelle version de Mac 
Charlie : Mac Charlie Plus, 
pennet non seulement aux 
Macintosh de faire tourner des 
logiciels IBM, mais aussi de sc 
connecter aux ordinateurs cen- 
traux et aux réseaux IBM. Pas de 
doute : 1986 devient l'année des 
setveurs pour le Mac. 


Disques durs : 
baisses à 
l'horizon 1986 


Ce sera aussi pour le Macintosh 
l'année des disques durs. Grâce à 
la nouvelle interface qu'a installé 
Apple sur le Macintosh Plus : la 
SCSI fles initiés prononcent 
"scuzzy"). Cette interface norma- 
lisée permet d'assembler en 
chaîne jusqu'à 7 périphériques 
avec une haute vitesse de transfert 
(1,5 Méga-octets par seconde). 
On peut donc désonnais facile- 
ment relier au Mac des lecteurs de 
disques optiques, des scanners, 
des robots et des disques durs. 
Avec deux avantages : 


+ la vitesse, car les données du 
disque ne passent plus par un 
des "lents" ports série ; 

+ le coût, car l'interface étant 
nonnalisée, la carte contrôleur 
est peu onéreuse (moins de 
299 dollars) et on peut y relier 
des disques durs &jà utilisés 
pour l'IBM. 


Lecteurs, voiciun païi : dans six 
mois, les disques durs auront 
baissé de 50%. Et ce n'est qu'un 
début : songez qu'aux Etats- 
Unis, un disque dur de 20 Méga- 
ectets pour l'IBM PC est tombé 
au-dessous de 400 dollars. 

Voici donc déjà annoncés toute 
une salve de disques durs pour le 
Mac se connectant sur le pot 
SCSI. 

Mention spéciale au disque dur de 
10 Mégas de Lodowan : son 
prix, 795 dollars, en fait le 
meilleur marché. Suivi par le 
Macaolfty Personal 10 de 
Macnifty. Mention spéciale 
aussi à l'AST 4000 d'AST : 
c'est le plus gros avec ses 74 
Mégas pour 7000 dollars. 





Pom's n° 23 


L'Hyperdrive voit apparaître des 
concurrents qui s'installent à 
l'intérieur du Macintosh Plus 
pour un Prix inférieur, ce so nt les 
Overdrive 10 et 20 de Levco 
(775 et 1975 dollars) ainsi que 
les Micahdrive 10 AT et 20 
AT de Milcab (1495 et 1895 
dollars). À noter encore des 
disques durs reliés à l'interface 
SCSI chez Supermac 
Tecbnology de Mountain 
view, Uuivation Inc, Sunol 
Systemset MD Ideas de 
Foster City (Californie), ainsi 
qu'une nouvelle version de la 
Bernouilll Box d'Iomega. 


Des monstres 


Comme si le Macintosb Plus 
n'était pas suffisant, voici que 
des constructeurs bricolent des 
Mac encore plus rapides et 
puissants. Voici ainsi le Super 
20 de Levco, comprenant un 
processeur 68020 cadencé à 16 
Mégahertz, 2 ou 4 Méga-octeis de 
mémoire vive, et l'emplacement 
d'un coprocesseur arithmétique 
68881. Prix : 8500 dollars. 


En France, P-Ingénlerle impor- 
te l'Hyperdrive 2000 de 
General Computer : il contient 
un processeur cadencé à 12 
Mégahertz, un coprocesseur 
anthmétique 68881 et 2 Mégas de 
mémoire. Ce "superMac" perrnet 
d'accélérer certaines opérations 
entre 2 et 100 fois. Un dessin 
employant des routines du 
Macintosh prend ainsi 170 
secondes sur le Mac conke 17 sur 
l'Hyperdiive 2000. Ce micro 
décidément gonflé est destiné à 
tous les amateurs de hautes 
pesformances en matière de DAO, 
de Finances, de simulations, mais 
aussi d'édition. 


MaxRAM est une carte qui 
ransforme un Macintosh 128Ko 
ou 512Ko en Mac 1536Ko, avec 
la possibilité de cboisir entre la 
configuration 1 Mo de mémoire 
centrale /4G0Ko de RAM disk, et 
la configuration S512Ko de 
mémoire / 1 Mo de RAM disk, 
cette dernière étant, à notre avis, 
la plus utile.Cette carte remplace 
la carte mère du Mac et ne pose 
apparemment pas de problème de 
compatibilité. Une des 
caracténstiques les plus intéres- 
sante du système est qu'il pennet 
la récupération du contenu du 
RAM disk après une bombe ou 
un redémarrage. Le principe de 
travail avec cette extension est le 
suivant : démarrage du Mac avec 
chargement aitomatique en RAM 
(1 Mo) de MacWrite et MacPaint 
et tout autre logiciel de voue 
choix. A parür de là, tout se fait 
en RAM, le lecteur interne ne se 
servant plus qu'aux sauvegardes 
sur les disquettes, Les traitements 
deviennent très rapides ; ainsi, le 
chargement de MacWrite, qui 
prenait 15 secondes sur disquette 
(Finder 4.1 et Mac 512), 8° sur 
Ilypeive et 7’ surle MacPlus 
avec cache mémoire, ne prend 
plus que 5", Cette carte est 


vendue par la société CCAM 
7300,00 F TFC aux pessesseurs 
d'un Si2Ko, 9900,00 F à ceux 
d'un 128 Ko. 


Edition 
électronique 
au programme 


Car l'autre axe stratégique 
d'Apple c'est le marché de 
l'édition électronique. Une autre 
prévision de Pom's : on verra 
cette année apparaître pour le Mac 
des logiciels de mise en page 
électronique révolumonnaires. 
marché de l'édition électronique 
est en pleine explosion. Dans les 
entreprises, il pourrait à lui seul 
justifier l'entiée du Macintosh 
Plus, (ou d'unnouveau frère doté 
d'un écran pleine page). Apple a 
visiblement décidé de tenter ce 
pari là. Au risque de voir le Mac 
devenir un terminal graphique des 
IBM 


En attendant une super impri- 
mante à laser capable d'imprimer 
avec une densité de 1000 points 
par pouce, Apple a perfectionné 
sa Laser Writer (imprimant à 
300 points par pouce). Elle inclut 
sept nouvelles polices de earac- 
tères et contient un Méga supplé- 
mentaire de mémoire morte. Pour 
l'exploiter, Adobe, l'auteur du 
contrôleur PostScript au cœur 
de l'imprimante a annoncé encore 
d'autres polices téléchargeables 
dans l'imprimante. 


Côté logiciels, Aldus a annoncé 
une nouvelle version (1.2) de 
PageMaker, capable d'utiliser 
les 12 nouvelles polices de 
caractères d'Adobe, Manbattan 
Graphles soit la version 2.1 de 
Ready Set To Go capable de 
draiter des brochures de 40 pages, 
Boston Software a perfec- 
tionné MacPublisber connu en 
France sous le nom de 
MacEdliteur, désonnais capable 
de traiter des brochures de % 
pages, comportant de nouveaux 
fonnats (ÿ compris le format 
tabloïd), des possibilités d'impor- 
ter des éléments par télécom- 
munications, et une palette 
graphique de 99 motifs pour 
réaliser des fonds. En prime, 
cette version est capable 
d'imprimer en couleurs sur la 
nouvelle imprimante Imagewriter 


Déjà de nouveaux 
logiciels 


Pour le Mac deux catégories de 
nouveaux logiciels, ceux qui 
fonctionnent sur le 512K0, et 
ceux qui profitent déjà des 
caractéristiques du Macintosb 
Plus. Dans la première catégorie, 
Microsoft sort une nouvelle 
version de Muitiplan : la 1.1, 
permettant d'utiliser simultané- 
ment plusieurs feuilles, et 
intégrant de nouvelles polices de 
caractères et sept fonctions 
financières nouvelles. Statware 


sert une version professionnelle 
de son programme statistique 
Stat 80. Il comporte notamment 
des analyses de corrélations des 
analyses factorielles et des 
manipulations de matrices avec 
18 opérateurs et 50 fonctions. 
Prix : 400 dollars. Sur le front 
des langages, remarquons que 
Philippe Kahn, le patron français 
de Borland sort une version de 
son Turbo Pascal pour le 
Macintosh. Tandis que chez 
P.Ingénlerie, sort le TML 
Pascal, présenté comme le 
premier environnement complet 
de développement de logiciels 
Pascal produisant du code natif 
68000, et offrant ainsi les 
possibilités du défunt Lisa. Prix : 
140,00 F HT. 


Voici enfin d'autres logiciels plus 
spécialement destinés au Mac 
Plus. Avec d'abord la nouvelle 
version de Jazz. Ce programme 
était à l'étroit sur le 512Ko, il 
pourra respirer sur le Mac Plus. 
Tout comme SuperCrunch de 
Paladin Software, le super 
tableur dont on dit qu'il 
concurrence Excel. 


Et l'Apple // 


U ne faudrait pas croire que 
l'Apple // est abandonné. Voici 
pour lui des quantités de 
petfectionnernents matériels. 


Des cartes 


Des cartes comme s'il en 
pleuvait. Deux fabricants de 
cartes pour l'IBM : AST et 
Quadram s'intéressent au //e. 
AST sort ainsi une earte de 
mémoire additionnelle d'un 
Méga-octets, une caite Ram Disk 
avec mémoire cache, une carte 
multi-fonctions (horloge, deux 
poits séries, etc), et un disque 
dur de 10 ou 20 Mégas. Tandis 
que Quadram propose carte 
borloge, carie 80 colonnes 
étendue, interface série avec 
buffer et la Multicore, une carte 
multi-fonctions (horloge, port 
série, poit parallèlle, extension de 
256Ko de mémoire). Applled 
Engineering, l'un des pionniers 
des extensions pour l'Apple //, a 
mis au point une carte accélérant 
les programmes d'un facteur de 
3/1 et permettant en prime 
d'installer un processeur 16 bits 
dès que ceux ci deviendront 
disponibles. Avec 256Ko de 
mémoire vive. Prix : 279 dollars. 


Mieux voir 


L'anéliorasion de l'écran du // est 
possible. Grâce au Screen 
Enbhancer de Video 7. Un 
modèle couleur permet de 
disposer de 4 couleurs de textes 
et 16 teintes de gris. Grâce aussi 
à un petit montage proposé dans 
la revue britannique Apple User 
par Chiis Payne, permettant de 
transfonner la sortie vidéo 


7] 


monochrome en FIL (comme sur 
l'IBM). Chiis Payne vend son 
montage tout fait pour 25 livres. 


Améliorer 
Appleworks 


Appleworks a été l'un des 
logiciels ies plus vendus aux 

-Unis. Rien d'étormant donc 
si les Américains le per- 
fectionnent. Le Southern 
California Research Group 
l'installe ainsi en ROM, sur une 
carte qui s'installe dans l'Apple 
lle. Chargement ultra rapide, 
opérations facilitées. Prix : 269 
dollars. A noter qu'il faut leur 
envoyer une disquette contenant 
Appleworks. 


La revue Nibble propose au 
travers de l'International 
Apple Core un programme 
permettant de réaliser des 
mailnges avec Appleworks pour 
30 dollars. 


Communiquer 


A bas prix. Mais si c'est 
possible ! Avec le Minitel. 
Marvie propose une interface de 
liaison (la M 232 FT) permettant 
d'utiliser le modem du Minitel, ct 
de stocker les pages vidéotex sur 
les disquettes de l'Apple, de 
transformer celui-ci en terminal 
80 colonnes, de visualiser des 
pages ou d'éditer des textes. 
Prix : 995,00 F TTC avec carte 
série pour le //e et 695,00 F pour 
le lc. 


Suite du source 
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Voler 


Grâce au Macintosh, on l'atten- 
dait depuis longtemps. Eh bien 
tandis que Bill Budge, l'auteur 
inspiré de Pinbail Construc- 
tion Set concotte un simulateur 
de vol sur navette spatiale, 
Sublogic s'est enfin décidé à 
sorur pour le Mac son Füälgbt 
Simulator le roi des simuiateurs 
de vol. Avec des fenêtres 
uidimensionnelles multiples per- 
mettant de regarder simultané- 
ment plusieurs vues du paysage 
tout en volant. On peut même se 
regarder voler soi-même d'un 
point fixe extérieur, Vivement 
que ce simulateur arrive en 
France. 


Formation 


La société KA organise le jeudi 
24 avril au PLM St Jacques un 
séminaire avancé sur Mulwpian, 
animé par Hervé Thiriez et ciôumé 
par Bemard Vergnes, président 
de Microsoft France. 


Ce sérninaire s'adresse à tous les 
utilisateurs confirmés de 
Multiplan pour, en une journée, 
leur présenter de multiples 
astuces d'utilisation de ce 
logiciel. 


Mesurer 


La revue InClder de féviier a 
consacré un article aux logiciels et 
interfaces permettant de trans- 
former l'Apple // en inswument 


scientifique. On y arouve ainsi 
des logiciels d'expérimentation en 
chimie (Chem Lab Simon & 
Schuster) ou en température 
(Temperature Lab d'Hayden 
à 100 dollars) , d'anatomie (The 
body In Focus de CBS 
Software et The Bod 

stransparent de Désiesenres, 
un système transformant l'Apple 
en électrocarmdiogramme d'effort 
(Cardlovascular Fitness Lab 
de HRM au prix de 175 dollars). 
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156 JMP BRUNHAND LA SEULE CHOSE QUI RESTE EST LE BINAIRE 233 SBC DRIVENUM 

157 AUW JMP RUNHAND 174 STA CRIVENUM 

158 ex JMP EXECHAND 175 

159 176 LOA DRIVESW A-T-ON DEJA CHANGE DE ORIVE ? 

160 éme... 277 BNE BIDRVENDI QUI, ON EST BON PQUR LE MSSSAGS !!! 


NON, MAZS CE NE MARCHERA PAS 2 F@IS... 
DRIVE CHANGE, ON RÉ-ESSAYE 


178 
179: 
180 


INC DRIVESW 
JMP DECHD 


1614 
162 * AVOIH ESSAYE LES 2 DRIVES OU 
16) * SLOT ACTUEL. 

= ANNULE DRIVES POUR LA PROCHAINE FOIS 


JE mme ss 191 BIDRVENDI JMP PATCH? 

165 182 BIDRIVEND RTS ET RETOURNE AU TRAITENENT DES ERREURS. 
166 LOA ERPNUN PUIS VIENS LE PATCH: QUELLE ERREUR ? 183 

167 CAP 69 184 vrocrnoessosesennontoscorenaesese 

168 BCS BIDRIVEND UN FILE NOT EUSND, UN VOLUME MISMATCS ? 185 * . 

169 CP FE UN I/0 ERROR 7 NOW ALORS TERMINE .. 186 * TOUS Lis RENSEIGNEMENTS SONT © 

170 ACC AIDRIVEND 197 « TIBES DE 'RENEATA APPLE DOS! « 

171 189 « . 

172 BIDRIVE LOA 45 SINON, CHANGE DE DRIVE 189 tennossooousee dass désnsnépnones 


Vous avez un Apple {le avec Chat Mauve ou un fc ? 


ll s'agit d'un système graphique double-haute 
Vous avez Pascal 1.2 ? 


résolution écrit en Pascai. COGO vous permet de 
manipuler des graphiques grâce à un langage de 
description des objets - points, angles- et à l'emploi 
de fonctions primitives de manipulation très 
puissantes : cercle, tangente, 

intersections, parallèles, etc. H est alnsi possible 
de tracer des grilles, des cercles, des segments de 
droite, des tangentes communes à deux cercles, 
de calculer des distances, des angles. 


Utilisez ( OGO Par Nicolas Montsarrat 


Ce programme, destiné à résoudre des problèmes de 
géométrie plane, comporte des instructions de stockage sur 


fichier afin de permettre la reprise d’un calcul. 
NB : Sur l'Apple //c, l'affichage se fait en simple 


L'éditeur permet une saisie rapide du angage. Une RAM SAnNÉ 


instruction COGO peut-être exécutée dès ja saisie 
pour faciliter la mise au point, ou au sein d’un 
programme. 


150,00 F TTC, franco 
Bon de commande page 74 
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Vous... 


Votre Apple... 


et Pom'’s 


Voici déjà un an, nous vous avions interrogé, sur vous, sur votre Apple et sur Pom's. Nous souhaitons en prendre 
l'habitude, pour mieux vous connaître, pour mieux apprécier l'évolution de votre équipement, pour mieux centrer nos 
articles sur vos aspirations. Comme l'an passé, nous procéderons à un tirage au sort qui permettra à dix lecteurs de 
bénéficier d'un abonnement avec disquettes. 











Vous... 

Votre âge -Hi5an Sexe féminin Langages Bai Votre niveau en débutant 
de 15à 19 ans masculin pratiqués Pascal programmation intermédiaire 
de 20 à 24 ans alsément Fer amateur averti 
de 25 à 34 ans Logo hautniveau 
de 35 à 45 ans Assembleur 6502/65C02 

+ de 45 ans Assembleur 68000 

AÛtres..….. nee Chaque semaine  -d2hewes 

DS de 3 à 8 heures 

de préférence sous DOS Fe Du de 9 à 16 heures 

sous ropos + de 16 heures 

sous CP/M 
Votre matériel 
Le micro ; L'imprimante Les extensions 
Apple Ke Macintosh 1 28 Ko 

Apple /e 6502 Macintosh 5 12 Ko Image Writer Seïkosha Carte 80 colonnes 

Apple /;e 65C02 Macintosh Plus image Water Mannesman 85 colonnes étendue 

Apple le Lsa Apple DMP Centronics Carte 280 avec CP/M 

Apple Epson % Carte souris 

Nombre de Jecteurs, interne et exteme : AUS …. ONE Disque dur 

Table traçante 

Ce que vous allez blentôt acquérir: " " 
et Pom's 
Vous avez connu Pom's De 5 (très bon) à Quelles autres revues 
Der Une DubicN6 0 (très mauvais) votre 2 pile rt informatiques lisez-vous ? 
dansun salon opinion Sur 3 présentation... 2. 
par un autre amateur fintérét des programmes... 
en kiosque la clarté OS NN COS 
en boutique leur intérêt pédagogique... 
les micro-informations…..… 


Ce que vous préférez 





Ce qu'if faut changer ou développer 


les disquettes d'acco pagnement..…...…. "TT 








Nom 


Prénom 


Adresse 


Ville 


Code Postal 





Abonné Q 





Pom's n° 23 


45 


mm 


Bon de commande 


Disquettes 


HAIFA source (cf. Pom'sn° 5) 
(cf. Pom'sn° 8) 
(cf. Pom's n° 10) 
(cf. Pom'sn°”11) à 450,00 F 
(cf. Pom's n° 13) à 150,00F 
(cf. Pom's n° 23) à 200,00 F 
(cf. ce n° page 4) à 8000F 
(cf.cen° page 4) à 80,00F 
(cf. Pom's n° 18) à 150,00 F 
(cf. Pom's n° 19) à 8000F 
(cf. Pom's n° 21) à 200,00 F 
(cf. Pom's n° 21) à 200,00 F 
(cf. Pom's n°21) à 150,00F 


Recueils 
N°1, recueil des revues 1 à 4 à 140,00 F 
Disquettes d'accompagnement 1 à 4 à 150,00 F 
N°2, recueil des revues 5 à 8 à 140,00 F 
Disquettes d'accompagnement 5 à 8 à 190,00 F 
N°3, recueil des revues 9 à 12 . (Disponible le 20 avril 1986) à 140,00 F 
Disquettes d'accompagnement 9 à 12 à 190,0 F 


Revues, disquettes 
Revues 4 7 8 à 35,00F 


Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 23 à 40,00F 


Disquettes Apple El, //e, //c 
1/2 3 4 5 6 7 8 9 10 1t 12 à S55,00F 
13 14 15 16 17 18 19 20 21 22 23 


Disquettes Macintosh 
14/15/16 groupées à 150,00 F 


17 18 19 20 21 22 23 
Mac ‘A’ 


Abennements Pour 6 numéros à partir dun°C___ | 


Abonnement à la revue seule 
Abonnement revue + disquettes Apple II, //e, Je 
Abonnement revue + disquettes Macintosh 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


EDITIONS ME V, 64 rue des Chantiers 78000 VERSAILLES 





74 Pom's n° 23 











1= 
LE.F. FE 


Le spécialiste des PLUS de la Micro 
vous invite dans le Nouveau Monde du 









Dernière heure 
Floppy externe 800 K 
2900 F HT 


Macintosh Plus 






Caractéristiques 


- Micro processeur 68000 Plus rapide 


-128 K ROM intégrant des 
fonctions graphiques rapides 
et la gestion du bureau 

- Clavier avec bloc numérique et 
touches curseur 

- RAM 1 Méga Octets extensible 
à 4 Mégas 

- Lecteur de disquette 800 K 
intégré 

- Interface SCSI permettant de 
relier des périphériques puis- 
sants 

- Système d'exploitation 5.1 
avec architecture supérieure 
etmémoire cache 


Plus puissant 

Plus ouvert 

Plus connectable 
Plus communiquant 
Plus facile 


Plus économique 





A) Vous êtes équipé d'un Macintosh 
LEF vous ouvre la porte des plus pour seulement : 
- 4.500 F AT (si vous êtes équipé d'un 512 K d'origine Apple) 
- 6.500 F HT {si vous êtes équipé d'un 128 K d'origine ou étendu) 
- Pour ces prix, IEF vous change la plaque mère, le lecteur de disquettes et le clavier. 
- La transformation est garantie 1 an par Appie. 
- Ces prix ne sont valables que pendant une durée limitée, réservez dès aujourd'hui votre transformation. 
- De plus, si vous achetez cette transformation, IEF vous offre son disque dur 20 Mégas au prix de 11.900 F HT! 


B) Vous n'êtes pas encore équipé d'un Macintosh 
IEF vous ofte Macintosh Plus exceptionnellement pour 24.900 Fr 
Promotion spéciale IEF de lancement : 


1 Macintosh Plus + 1 disque dur 20 Méga Octets 34.900 F HT (offre limitée) 


ÎEF propose des conditions spéciales pour les Grands Comptes et les établissements d'enseignement 
Si vous voulez profiter d'une de ces offres, renvoyez vite /e coupon réponse ci-dessous 


217, quai de Stalingrad 92130 ISSY LES MOULINEAUX Tél:(1)4557.1414  Télex : 200210 F 


Coupon réponse à retourner à : LE.F, 217, quai de Stalingrad 92130 ISSY LES MOULINEAUX 


NOM SERRE R  T nan ceness nee nr RES Nes Rate SOCIÈTE : 2. Do 


TEL : 


ADRESSE > er CN RE nn re mener me ein aie ed nee em ee au 0 ne desc ee ue 
Je suis intéressé par : 












pANC re 


15.01 5 
crc 
& oUVEL 


era 





l'actualité 
les bancs d'essai 
les guides d'achat 
le dossier 
les programmes 


ORDINATEUR 
INDIVIDUEL 





LA RÉFÉRENCE EN M 


LES SECRETS DU LOGICIEL RÉUSSI 
L DOSSIER 6 oHDIN [MALE 
ss PLUS DE 2 POMPARATES mn 


LA RÉFÉRENCE EN MICRO-INFORMA 





TIQU 





(e 


ASTEAD 





A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l'étronger, l'équipe entière se mobilise pour vous fournir tous les mois une information 
complète et de qualité. Le monde de la micro bouge: L'O.1. teste pour vous les micros et 
logiciels qui apparaissent sur le marché. !l vous dit lesquels choisir et pourquoi. Vous êtes déjà 
équipé ef vous souhaitez tirer le maximum de votre machine ? Les spécialistes de L’0.1. vous livrent 
conseils, programmes inédits et astuces d'utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL, 





